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The  effect  of  thermal  treatment  and  hot  lsostatic  pressing  (HIP) 
on  eliminating  low  cycle  fatigue  (LCF)  damage  in  the  iron-nickel 
superalloy,  Incoloy  901,  was  investigated.  Testing  was  done  in  air  at 
500°F  at  a  total  strain  range  of  0.75Z.  The  mechanisms  of  crack  initiation 
and  crack  propagation  in  baseline  specimens  were  determined  and  used 
as  the  basis  of  comparison  for  the  rejuvenated  specimens. 

Crack  initiation  in  the  baseline  specimens  was  due  to  decohering 
of  blocky  grain  boundary  carbides.  Pre-crack  initiation  damage 
consisted  of  extrusions  and  intrusions  formed  at  persistent  slip  bands 
and  partially  decohered  grain  boundary  carbides. 

A  pre-rejuvenation  damage  level  of  800  cycles  (60 7.  of  crack 
initiation)  was  selected.  Some  specimens  to  be  HIP  processed  were 
ceramic  coated;  the  rest  were  left  uncoated.  Post-HIP  testing 
revealed  that  LCF  properties  were  adversely  affected  by  surface 
microstructural  damage  caused  by  the  HIP  processing. 

Thermal  rejuvenation,  consisting  of  a  standard  solution  treatment 
and  double  aging,  was  partially  successful  in  recovering  fatigue 
properties  with  a  pre-rejuvenation  damage  level  of  800  cycles.  Initia¬ 
tion  life  was  extended  by  400  cycles  and  cycles  to  failure  was  extended 
by  600  cycles.  This  behavior  is  explained  in  terms  of  microstructural 
damage  which  is  resistant  to  thermal  treatment. 
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Chapter  1 


INTRODUCTION 


The  modern  gas  turbine  engine  demands  the  ultimate  in  performance 
from  materials.  Typical  material  requirements  include  high  strength 
and  stiffness  at  operating  temperatures,  good  oxidation  resistance, 
low  creep  rates  and  high  stress  rupture  values,  and  good  low-cycle  and 
high-cycle  fatigue  resistance.  Since  the  results  of  component  failure, 
especially  of  rotating  components,  usually  are  catastrophic,  design 
approaches  and  material  specifications  tend  to  be  conservative  (1,3,4,61) 
A  turbine  disk  is  that  component  which  transmits  the  work  done  by 
hot,  expanding  gases  on  the  turbine  blades  to  the  power  shaft  of  the 
engine.  Experience  has  indicated  that  turbine  disks  can  fail  either  by 
stress  rupture  at  the  rim  where  the  blades  are  attached  with  dovetail 
slots;  or,  as  is  usually  the  case,  by  low-cycle  fatigue  at  cross- 
sectional  changes  or  at  bolt  holes  (10).  The  low-cycle  fatigue  results 
from  vibration,  changing  engine  operating  speeds  and  thermal  gradients 
(3,12).  When  a  turbine  disk  is  limited  by  low-cycle  fatigue  (LCF)  life, 
the  design  approach  is  to  establish  a  probability  of  failure  of  0.5%, 
with  failure  defined  as  extension  of  a  detectable  crack  and  not  compo¬ 
nent  disintegration.  Therefore,  most  turbine  disks  reach  their  LCF  life 
with  a  high  probability  of  additional  life  remaining  (1).  Since  these 
disks  are  quite  expensive,  there  is  a  great  deal  of  interest  in 
processing  the.  disks  in  some  manner  (i.e.,  rejuvenating  the  disks) 


to  remove  the  microstructural  damage*  which  leads  to  LCF  failure,  so 
that  the  disks  can  be  returned  to  service  safely  and  reliably  at  low 
cost  (2). 

This  investigation  was  undertaken  to  determine  how  the  LCF  process 
causes  crack  initiation  in  Incoloy  901,  and  to  find  which  rejuvenation 
treatments  can  lead  to  recovery  of  the  initiation  life.  Incoloy  901 
was  selected  for  study  because  it  is  a  commonly  used  superalloy  and, 
thus,  there  are  many  disks  which  potentially  can  be  returned  to  service 
after  rejuvenation. 

Subsequent  portions  of  this  introduction  will  briefly  review  LCF 
crack  initiation  and  propagation  in  superalloys,  the  physical 
metallurgy  of  Incoloy  901,  and  rejuvenation. 

I.  CRACK  INITIATION 

Dieter  divides  the  fatigue  process  into  four  steps:  crack 
initiation.  Stage  I  crack  growth,  Stage  II  crack  growth,  and  ultimate 
ductile  failure  (14).  This  classification  will  be  used  in  the 
following  discussion. 

The  mechanisms  for  LCF  crack  initiation  generally  involve  the 
interaction  between  the  deformation  processes  and  the  alloy  micro¬ 
structures  (1,4,5,6,7,8,9,11,46,64,67,68).  The  mode  of  crack  nucleation 
depends  on  such  factors  as  the  amount  of  deformation,  the  degree  of  slip 
dispersal,  test  temperature  and  environment,  and  the  amount  and  type  of 
microstruc.tural  defects  (carbo-nitrides,  borides,  porosity,  brittle 
second  phases,  etc.).  Kim  and  Laird  point  out  that  in  pure  metals, 
crack  initiation  occurs  at  persistent  slip  bands  at  low  stress  ranges 
and  at  grain  boundaries  at  high  stress  ranges  exclusive  of  severe 
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environmental  effects  (47).  In  lower  temperature  regimes  (less  than 
about  700°F  or  370°C),  superalloys  deform  by  planar  slip  which  is 
heterogeneous  in  nature  (4).  Kuhlmann-Wilsdorf  and  Laird  have  developed 
a  dislocation  model  to  explain  how  persistent  slip  bands  can  lead  to  the 
formation  of  instrusions  and  extrusions  on  the  specimen  surface  which 
in  turn  lead  to  crack  initiation  (49,46).  This  model  presents  the 
rationale  for  the  simple  stress-raiser  mechanism  proposed  by  Wood 
20  years  ago  (50) . 

At  high  cyclic  ranges,  cracks  generally  initiate  at  the  grain 
boundaries.  Recent  work  by  Kim  and  Laird  (47,48)  have  developed  three 
criteria  for  crack  initiation  in  pure  metals  at  grain  boundaries: 

(a)  The  grain  boundaries  must  have  a  high  degree  of  lattice  mismatch; 

(b)  The  slip  on  the  active  slip  system  in  either  one  or  both  of  the 
adjacent  grains  should  be  directed  at  the  intersection  of  the  boundary 
with  the  specimen  surface;  and  (c)  The  trace  of  the  boundary  at  the 
free  surface  should  lie  at  an  angle  of  30-90°  with  respect  to  the 
stress  axis.  Kim  and  Laird  also  observed  grain  boundary  sliding  in 
their  LCF  experiments  on  pure  copper  (47).  The  cracks  were  observed 
to  have  initiated  at  grain  boundary  steps. 

Superalloys  contain  a  substantial  amount  of  carbides,  carbo-nitrides, 
and  borides  intentionally  added  to  control  the  grain  size,  improve  creep 
resistance,  increase  grain  boundary  strength,  and  to  vitiate  the  adverse 
effects  of  trace  elements  (17).  Unfortunately,  it  has  been  found  that 
these  nonmetallic  inclusions  serve  as  favorable  sites  for  crack 
initiation.  In  a  study  by  Gell  and  Levernnt  on  the  LCF  behavior  of 


Mar-M200,  it  was  found  that  metal  carbides  played  a  key  role  in 


determining  the  crack  initiation  life  (8).  The  carbides  can  be  pre¬ 
cracked  due  to  differential  contraction  during  the  solidification 
process  or  during  the  various  metalworking  processes.  Also,  the 
carbides  can  de-cohere  from  the  matrix,  especially  at  the  surface, 
leading  to  a  localized  strain  concentration  region.  As  recently  shown 
by  Reimann  and  Menon,  carbides  provide  a  preferential  path  for 
developing  LCF  cracks  in  Rene  95  and  seem  to  be  associated  with 
initiation  of  th».  cracks  themselves  (1). 

Many  invert-* gators  have  found  coherent  twin  boundaries  to  be 
significant  sift  ror  crack  initiation  at  lower  stress  ranges  (4). 

II.  STAGE  I  CRACK  PROPAGATION 

There  is  some  disagreement  in  the  literature  about  a  definition  of 
Stage  I  cracking.  Coffin  suggests  that  Stage  I  is  early  growth  of  a 
crack  to  some  detectable  limit  and  then  propagation  through  a  plastic 
regime  (12) .  A  more  accepted  definition,  is  that  Stage  I  cracking  is 
that  stage  where  cracks  propagate  along  specific  crystallographic 
planes  which  are  oriented  near  45°  to  the  applied  stress  axis  (46).  But 
Laird  points  out  that  this  definition  is  not  strictly  applicable  to  LCF 
where  crack  nucleation  and  growth  may  occur  along  sections  which  are 
not  crystallographic  (47) . 

Since  persistent  slip  bands  develop  on  the  most  active  slip  plane, 
cracks  initiated  at  them  generally  continue  to  propagate  along  them  (46). 
Thus,  a  persistent  slip  band  can  lead  to  the  development  of  intrusions/ 
extrusions,  to  a  crack  nucleus,  and  finally  to  crack  propagation. 

Similarly,  cracks  nucleated  at  grain  boundaries  tend  to  grow  along 
the  boundary  both  on  the  surface  and  into  the  bulk  (47).  Thus,  the 


5 


crack  front  develops  a  thumbnail  shape.  Also,  Kim  and  Laird  predicted 
and  observed  a  crack  path  which  is  asymmetric  with  respect  to  the 
boundary,  with  the  crack  occurring  in  that  grain  with  the  most  favorably 
oriented  active  slip  system  (48). 

III.  STAGE  II  CRACK  PROPAGATION 

Coffin  proposes  that  Stage  I  cracking  leads  to  Stage  II  cracking 
when  the  crack  overcomes  the  plastic  zone  which  envelops  it  during  its 
early  stages,  and  thus  it  begins  to  grow  elastically  (12). 

Usually,  however,  Stage  II  is  denoted  as  the  transition  of  the 
crack  from  growing  along  the  maximum  shear  direction  to  growing  normal 
to  the  applied  stress  direction.  At  high  stress  ranges,  the  crack 
will  almost  immediately  propagate  by  Stage  II  processes  (46). 

It  is  during  Stage  II  crack  growth  that  fatigue  striatioirs  are 
generated,  although  not  all  materials  develop  a  striation  pattern. 
Striations  are  usually  observed  in  superalloys  (53) .  It  is  generally 
accepted  that  each  striation  represents  the  propagation  distance  of  a 
fatigue  crack  during  each  cycle.  A  crack  plastic  blunting  process 
proposed  by  Laird  requiring  two  slip  systems  (51)  is  a  very  reasonable 
explanation  for  the  formation  of  striations  (52). 

Stage  II  continues  until  the  crack  becomes  long  enough  to  cause 
the  final  instability.  In  brittle  materials,  the  crack  begins  to 
propagate  unstably  after  a  critical  length  is  reached.  In  ductile 
materials,  the  crack  grows  until  a  tensile  overload  occurs,  at  which 
time  fracture  occurs  by  shear  rupture  on  planes  inclined  45°  to  the 
tensile  axis  (52). 


IV.  PHYSICAL  METALLURGY  OF  INCOLOY  901 


Incoloy  901  is  an  iron-nickel  superalloy  widely  used  as  a  turbine 
disk  material  since  the  early  1960's  (17).  Its  nominal  composition  is 
(in  weight  percent):  Ni-42.5,  Fe-36.0,  Cr-12.5,  Mo-5.7,  Ti-2.8,  Al-0.2, 
C-0.05,  and  B-0.015.  Since  it  is  fairly  strong  and  ductile  at  inter¬ 
mediate  temperatures  (up  to  1000°F/540°C)  and  contains  substantial  iron 
and  relatively  low  chromium,  it  is  widely  used  due  to  its  comparatively 
low  cost.  It  also  possesses  the  advantage  of  being  in  that  group  of 
superalloys  which  can  be  forged  and  machined  fairly  conventionally  (19). 

Incoloy  901  has  an  austenitic  (y-f.c.c.)  iron-nickel-chromium 
matrix.  Molybdenum,  titanium,  carbon,  and  boron  are  the  other  principal 
substitutional  solid-solution  strengtheners  of  the  matrix  (17).  The 
stacking  fault  energy  is  not  known,  but  from  data  presented  by  Decker 
and  Floreen,  it  can  be  estimated  to  be  greater  than  60  ergs/cm^  (18) . 

The  primary  precipitate  is  y',  an  intermetallic  compound  of  the 
type  Cu^Au,  possessing  a  Strukturbericht  structure  type  LI2.  Its 

O 

stoichiometric  composition  is  Ni^Al  with  a  lattice  parameter  of  3.60  A. 
In  actual  fact,  y'  contains  some  iron  on  the  nickel  lattice  sites,  and 
some  titanium  on  the  aluminum  lattice  sites,  so  that  y'  is  usually 
denoted  as  (Ni,Fe) ^(Al.Ti) .  The  lattice  mismatch  between  y*  and  the  y 
matrix  is  low,  so  that  the  y'  nucleates  homogeneously.  The  y’  grows 
in  a  spherical  morphology  which  indicates  that  the  lattice  misfit  is 
less  than  0.5%  (17,20).  The  solvus  temperature  is  1725°F  (940°C)  (17). 

Actually,  in  Incoloy  901,  y'  is  a  metastable  precipitate  (18).  The 
equilibrium  precipitate  is  n,  an  h. c.p. -ordered  intermetallic  compound 
with  a  Strukturbericht  structure  typo  DO24.  It  has  the  stoichiometric 
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composition  Ni^Ti.  Unlike  y'»  it  does  not  dissolve  substantial  amounts 
of  other  elements  (20).  The  precipitation  of  n  may  occur  in  two  forms: 
at  the  grain  boundaries  in  a  cellular  morphology  or  intergranular ly  as 
plates  (22,20).  The  cellular  precipitation  nucleates  at  a  lower 
temperature  than  the  plate-shaped  precipitates.  The  solvus  temperature 
for  n  is  1825°F  (996°C)(17).  Significant  precipitation  occurs  in  the 
temperature  range  1500-1750°F  (816-954°C) ,  with  the  most  rapid  precipi¬ 
tation  rate  in  the  temperature  region  1600-1650°F  (871-899°C)  (25). 

The  cellar  precipitation  reaction  consi-ts  of  alternating  lamellae 
of  y  and  n«  These  cells  have  a  random  orientation  with  respect  to  the 
grain  into  which  they  are  growing.  But  the  close-packed  planes  and 
directions  of  the  h.c.p.  p  and  the  f.c.c.  y  are  parallel  to  one 
another  (20).  These  orientation  relationships  are  also  true  for  the 
plate  morphology  which  are  thought  to  nucleate  on  stacking  faults  in  y' 
(18).  The  interface  between  y  and  p  is  semi-coherent,  with  a  lattice 
mismatch  of  0.65%  (19).  The  n  phase  is  associated  with  severe  degrada¬ 
tion  in  mechanical  properties.  Not  only  is  the  phase  itself  brittle, 
but  also  it  grows  at  the  expense  of  the  y*.  However,  n  has  successfully 
been  used  to  control  the  grain  size  of  Incoloy  901  during  forging  by 
the  utilization  of  special  thermomechanical  processing  (25). 

Carbides  play  a  key  role  in  superalloys.  They  help  to  control  grain 
size  since  some  carbide  types  are  stable  nearly  to  the  melting  point  of 
the  alloys.  Also,  the  carbides  which  precipitate  in  the  grain  boundary 
greatly  increase  stress  rupture  strength  at  elevated  temperatures.  And, 
carbides  can  increase  the  chemical  stability  of  the  matrix  by  removing 
reacting  elements  (26).  MC  carbides  form  shortly  after  freezing  and, 
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hence,  they  occur  as  discrete  particles  distributed  homogeneously 
throughout,  the  alloy.  In  Incoloy  901,  these  MC  carbides  have  the 
composition  TiC  with  an  f.c.c.  structure.  Some  molybdenum  can 
substitute  on  the  titanium  lattice  sites,  so  that  a  carbide  of  the 
type  (Ti,Mo)C  is  possible  (26,70). 

Although  carbides  of  the  type  usually  form  in  superalloys 

during  low-temperature  heat  treatment  and  service  in  the  temperature 
range  1400-1800°F  (760-9S0°C) ,  they  are  not  found  in  Incoloy  901. 
Instead,  MC  carbides  of  the  type  (Ti,Mo)C  precipitate  at  the  grain 
boundaries  during  the  stabilization  portion  of  the  heat  treatment  (70). 
The  morphology  of  these  grain  boundary  carbides  is  similar  to  that  for 
a  Laves  phase  and  they  have  been  incorrectly  identified  as  Laves 
phases  (24). 

The  formation  of  carbo-nitrides  and  titanium  nitrides  has  been 
reported  (24).  Cubic  TiN  is  as  thermally  inert  in  the  superalloy  as 


is  TiC. 


The  boron  which  is  added  to  improve  creep  properties  results  in 
the  precipitation  of  hard,  refractory  M^I^  t>orides  (26).  Typical 
composition  of  these  borides  is:  (Mo,Ti,Al,Cr,Fe,Ni,Si) (24,69). 

In  addition  to  the  intentional  precipitates,  various  topologically 


close-packed  (t.c.p.)  intermetal  1 ic  compounds  form  in  superalloys  due 
to  solid-state  bonding  phenomena  (t.c.p.  phases  are  also  referred  to  as 
"Hume-Rothery  compounds"  and  "electron  compounds") .  A  hexagonal  Laves 


phase  of  the  type  (Fe , Cr ,Mn , Si ) 2 (Mo ,Ti , Cb)  has  been  found  in  Incoloy 
901  after  aging  for  long  times  in  the  temperature  range  1200-2000°F 
(649-1093°C) .  The  morphology  varies  from  general  intergranular  to  grain 
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boundary  precipitation  (24,23,18).  The  trigonal  p  phase  has  been 
observed  in  Incoloy  901  with  high  boron  additions  (0.1  weight  percent) 
(24) .  This  phase  has  a  close  structural  relationship  to  the  M^C 
carbides  and,  thus,  it  may  be  that  M^C  can  precipitate  in  this  alloy, 
although  it  has  not  been  reported.  The  chemical  composition  of  the  yi 
phase  can  be  quite  complex.  It  is,  in  general,  (Ti ,llo) ^ (Fe,Ni) ^  (24). 
The  precipitation  is  intragranular  as  thin  platelets  parallel  to  y 
close-packed  planes. 

V.  REJUVENATION 

Metallurgical  engineers  whoare  responsible  for  the  maintenance  of 
turbine  engines  have  long  expressed  a  desire  to  be  able  to  restore  at 
least  a  portion  of  the  design  life  of  expensive  engine  components 
through  some  sort  of  processing  operation.  This  process  has  been 
given  the  name  "rejuvenation."  Recent  advances  made  by  Wilshire  and 
others  have  shown  that  thermal  treatments  are  successful  in  recovering 
the  creep  life  of  superalloys  (28,29).  Wilshire  found  that  the  onset 
of  tertiary  creep  is  caused  either  by  development  and  growth  of  grain 
boundary  cavities  or  by  microstructural  changes  which  cause  changes  in 
volume  fraction  and  morphology  of  the  y'  (28).  Thus,  suitable  heat 
treatments  could  be  devised  to  sinter  out  the  cavities  in  the  first 
case,  or  to  restore  the  original  microstructure  in  the  second  case  in 
order  to  recover  the  creep  life. 

The  success  with  creep  damage  has  given  impetus  to  finding  suitable 
processing  conditions  for  recovering  the  low-cycle  fatigue  (LCF)  life 
of  superalloys.  The  use  of  hot-isost at ic-pressing  (HIP)  technology  to 


consolidate  metal  powders  has  been  quite  successful  (31)  and  it  was 
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inferred  that  this  technology  would  be  useful  in  heatling  LCF  damage. 
The  HIP  process  involves  the  introduction  of  high  pressure  gas  into  an 
autoclave  at  elevated  temperature.  Thus,  some  mechanical  energy  is 
available  as  well  as  thermal  energy. 

Researchers  at  the  Stellite  Division  of  the  Cabot  Corporation 
obtained  some  preliminary  data  on  turbine  blades  which  indicated  that 
some  recovery  of  creep  and  fatigue  properties  was  possible  with  HIP 
processing  (30).  An  Air  Force  funded  study  on  HIP  rejuvenation  in 
IN-718  concluded  that  there  was  no  rejuvenation  of  pre-crack  initiated 
damage,  but  that  there  was  some  rejuvenation  of  post-crack  initiation 
life  due  to  the  closure  and  bonding  of  fatigue  cracks  (2).  However, 
this  work  was  not  conclusive  because  the  HIP  cycle  chosen  for  the 
rejuvenation  effort  substantially  changed  the  baseline  properties  of 
the  material,  and  there  was  relatively  little  effort  devoted  to 
micros t rue tural  characterization. 

It  is  the  purpose  of  this  dissertation  to  report  the  results  of 
the  experimental  investigation  to  recover  some  portion  ex  pre-crack 
initiated  LCF  life  using  thermal  and  HIP  processing.  Pertinent 
aspects  of  the  physical  metallurgy  of  Incoloy  901  are  presented.  The 
LCF  behavior  of  Incoloy  901  at  various  strain  ranges  is  reported.  The 
microstructura.l  mechanisms  of  LCF  damage  and  the  resultant  effects  of 
the  rejuvenation  processes  are  detailed. 
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Chapter  2 


EXPERIMENTAL  PROCEDURE 

I.  METALLOGRAPHY  TECHNIQUES 
A.  Optical  Microscopy 

The  samples  to  be  examined  were  mounted  in  Bakelite,  hand  polished 
through  600-grit  silicon  carbide  paper  using  water  as  a  lubricant,  and 
polished  successively  with  6-p,  1-p,  and  1/4-p  diamond  paste.  Several 
different  etchants  were  utilized.  ASTM  Etchant  105  (32)  was  most 
generally  used  to  reveal  microst ructural  details.  It  was  freshly 
mixed  each  time  in  these  proportions:  92%  HC1,  5%  H^SO^,  and  3%  HNO^. 
Immersion  for  5-30  seconds  was  usually  sufficient.  Marble’s  Reagent 
(ASTM  Etchant  25)  was  effective  in  hi gblighting  the  grain  boundaries. 

It  was  mixed  in  these  propo  -ions:  10  g  CuSO^,  50  ml  HC1,  and  50  ml 
water  (32).  Etchant  times  were  generally  10-30  seconds.  Glyceregia 
(ASTM  Etchant  87)  was  useful  in  highlighting  microstructural  details 
when  the  other  etchants  were  not  adequate.  It  was  freshly  mixed  each 
time  according  to  the  formula:  10  ml  HNO-j,  50  ml  HC1,  30  ml  glycerin  (32). 
The  samples  were  bathed  in  hot  water  prior  to  immersion  in  the  glyceregia. 
Etchant  times  depended  on  the  surface  temperature  of  the  specimen. 

Average  times  were  between  20  seconds  and  1  minute.  Sometimes  the 
samples  were  immersed  in  HF  for  a  f ew  seconds  to  remove  a  passive 
layer  prior  to  etching. 
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AfLer  the  samples  were  satisfactorily  etched,  they  were  thoroughly 
rinsed  in  water  and  bathed  in  a  saturated  sodium  bicarbonate  solution 
placed  in  an  ultrasonic  cleaner  for  several  minutes.  This  step  was 
necessary  to  prevent  etching  of  the  microscope  objective  piece.  The 
etched  surface  was  then  dried  using  a  methanol  wash  and  a  blower.  The 
samples  were  examined  and  photographed  in  a  Bausch  and  Lomb  Research  II 
Metallograph  using  a  xenon  light  source. 

B.  Transmission  Electron  Microscopy 

Thin  slices  of  Incoloy  901,  approximately  0.010  inch  thick,  were 
cut  using  a  thin  abrasive  cut-off  wheel.  These  slices  were  then  ground 
flat  on  240-  and  320-grit  silicon  carbide  paper  using  water  as  a 
lubricant.  The  slices  were  attached  to  the  bottom  of  a  stainless  steel 
mount  using  balsam  wax.  The  slice  was  further  ground  down  to  a 
thickness  of  5-6  mils  on  320-  and  400-grit  silicon  carbide  paper  using 
a  water  lubricant.  The  thin  slices  were  then  dismounted  and  the 
residual  balsam  was  removed  by  slight  grinding  on  the  400-grit  paper. 

A  punch-out  die,  with  a  3-mm  opening,  was  used  to  cut  out  the  disks. 

In  the  case  of  the  fatigue  specimens  where  the  disks  were  taken  normal 
to  the  longitudinal  axis,  the  above  procedure  was  simplified  somewhat 
since  the  fatigue  specimens  had  a  nominal  3-mro  diameter. 

Electropolishing  was  done  with  a  dual-jet  Tenupol.  The  electrolyte 
had  the  following  composition:  600  ml  methanol,  250  ml  butanol,  and 
60  ml  perchloric  acid  (70%).  The  electrolyte  was  maintained  at  a 
temperature  of  about  -60°C  by  constantly  adding  liquid  nitrogen  to  a 
methanol  bath  surrounding  the  electrolyte. 

The  controls  on  the  polisher  wore  set  for  minimum  flow  rate  and 
maximum  sensitivity  of  the  photocell  detector  which  turned  off  the 
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electrolyte  pump  after  perforation  of  the  disk.  A  two-step  polishing 
sequence  worked  best.  Eleetropolishing  for  15-30  minutes  at  30  volts 
followed  by  final  polishing  at  16-20  volts  produced  dished  disks  with 
holes  close  to  the  center.  After  electropolishing,  the  disks  were 
washed  in  methanol.  Great  care  was  taken  in  handling  to  prevent  inducing 
artifact  dislocations  into  the  structure. 

C .  Scanning  Electron  Microscopy  (SEM) 

An  AMR  Model  1000  Scanning  Electron  Microscope  was  used  in  this 
investigation.  An  Energy  Dispersive  Analysis  of  X-Rays  (EDAX)  attach¬ 
ment  to  the  SEM  was  used  to  identify  chemical  elements.  Sample 
preparation  involved  cutting  the  LCF  specimen  just  below  the  extensometer 
flange,  and  mounting  it  on  an  aluminum  stud  using  a  silver  paste. 

D,  Surface  Replication 

Acetyl  cellulose  replicating  film  was  used  to  replicate  the  surface 
in  the  gauge  section  of  the  low-cycle  fatigue  specimen.  The  replication 
was  done  on  loose  specimens  and  while  the  specimens  were  mounted  in  the 
Instron  Hydraulic  Testing  Machine  (37).  The  replicating  film,  0.034  mm 
thick  (1.34  mils),  was  cut  into  strips  0.30  in.  wide  (the  approximate 
length  of  the  gauge  section).  The  strips  were  cut  into  lengths  0.25- 
0.30  in.  long.  Strips  of  this  length  covered  about  75%  of  the  gauge 
length  area.  A  reference  line  was  made  on  the  LCF  specimen  above  the 
extensometer  flange  so  that  the  location  of  each  replica  could  be  noted. 
At  least  six  replicas  were  made  for  each  gauge  length,  with  adequate 
overlap  of  areas  between  adjacent  replicas.  Thus,  the  gauge  section 
was  completely  replicated  about  three  times.  This  provided  insurance 
against  an  artifact  in  the  replica  obscuring  a  vital  surface  detail. 
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The  replicating  film  was  prepared  for  use  by  submerging  it  in 
acetone  for  8-10  seconds,  holding  a  corner  with  tweezers.  The  film 
was  removed  from  the  acetone  and  quickly  applied  to  the  surface.  Hie 
film  "grabbed”  onto  the  surface  almost  immediately.  The  film  dried  on 
the  surface  for  5-10  minutes,  and  then  was  stripped  off  with  tweezers. 

It  was  placed  on  a  piece  of  double-sided  sticky  tape  mounted  on  a 
glass  slide.  The  position  of  the  reference  mark  on  the  LCF  specimen 
with  respect  to  the  replica  was  scribed  into  the  sticky  tape  at  the 
appropriate  position.  A  piece  of  masking  tape  on  the  reverse  of  the 
glass  contained  the  identification  data.  Two  glass  slides  at  a  time 
were  then  placed  in  a  vacuum  evaporator,  and  the  belljar  evacuated  to 
2  x  10  ^  torr.  The  slides  were  rotated  and  a  uniform  thin  coating  of 
99.99%  purity  aluminum  was  applied.  The  replicas  were  then  examined 
using  a  light  microscope  or  a  scanning  electron  microscope. 

II.  AGING  RESPONSE  OF  INCOLOY  901 

A,  Material  Specification 

The  Incoloy  901  was  received  in  the  form  of  a  segment  of  a 
partially  finished  compressor  shaft.  The  shaft  had  been  cast,  forged, 
and  pierced.  A  chemical  analysis  is  presented  in  Table  1.  A  band  saw 
with  a  bi-metal  blade  was  used  to  cut  pieces  of  material  for  study. 

The  material  was  received  in  solution-treated  and  double-aged  condition. 
The  commercial  heat  treatment  specification  is  shown  in  Table  2  (34). 

B.  Thermal  Treatments 

Heat  treating  studies  were  conducted  in  two  different  furnaces. 

A  vertical  tube  drop  Marshall  furnace  was  used  when  rapid  quenching 


TA1J1.E  1 


CHEMICAL  ANALYSIS  OF  BILLET 


Element 

Weight  Percent 

Atomic  Percent 

C 

0.034 

0.162 

Mn 

0.10 

0.104 

P 

0.019 

0.035 

S 

0.005 

0.009 

Si 

0.10 

0.203 

Cr 

12.41 

13.63 

Ni 

41.33 

40.21 

Mo 

5.31 

3.16 

Ti 

2.99 

3.57 

A1 

0.29 

0.61 

Cu 

0.09 

0.08 

Co 

0.29 

0.28 

Bi 

0.00005 

0.00001 

Pb 

0.0003 

0.00008 

B 

0.015 

0.079 

Fe 

Balance  (37.02) 

37.86 
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SOLUTION 


STABILIZATION 


PRECIPITATION 


TABLE  2 

COMMERCIAL  HEAT  TREATMENT  SPECIFICATION 
FOR  INCOLOY  901 


Heat  to  1975-2025  F 

Hold  within  ±25  F  for  2  hours 

Cool  at  rate  equivalent  to  air  cool  or  faster 

Heat  to  1400-1475  F 

Hold  within  ±15  F  for  2-4  hours 

Cool  in  air  or  quench  in  water 

Heat  to  1300-1375  F 

Hold  within  ±15  F  for  24  hours 

Cool  in  air 


Reference:  Pratt  &  Whitney  Aircraft  Specification  1003H,  20  Nov.  1973 


of  the  specimen  was  desired.  A  thin  piece  of  alumel  wire  was  used  to 
suspend  a  tantalum  specimen  basket  in  the  furnace  hot  zone.  The  alumel 
wire  was  formed  into  a  loop  and  each  end  was  connected  to  a  metal  post 
in  a  cap  at  the  top  of  the  furnace.  Heavy  gauge  nichrome  wire,  bent  at 
each  end  in  the  form  of  a  "U",  was  used  to  connect  the  basket  to  the 
alumel  wire.  Helium  gas  was  passed  through  a  gas  train  to  remove 
impurities  and  then  introduced  into  the  top  cap  of  Lhe  tube.  The  bottom 
tube  opening  was  covered  with  a  thin  sheet  of  plastic  held  in  place  by 
a  rubber  band  wrapped  around  the  tube.  Tygon  tubing,  connected  to  a 
side  tap  in  the  tube,  near  the  bottom,  directed  the  helium  gas  into  a 
beaker  of  vacuum  pump  oil.  Minimal  pressure  and  flow  rate  of  the  gas 
was  maintained,  i.e.,  only  sufficient  pressure  to  generate  a  bubble 
every  few  seconds  in  the  oil  was  used.  A  cbromel -alumel  thermocouple 
placed  at  the  same  height  in  the  tube  as  the  basket  was  used  to  monitor 
temperature.  Wien  the  heat  treatment  was  completed,  the  thin  alumel 
wire  loop  was  broken  by  passing  a  110-volt  line  current  through  it. 

The  basket,  with  the  specimen  in  it,  fell  out  the  bottom  of  the  tube, 
easily  penetrating  the  plastic  membrane  on  the  bottom.  A  pail  of 
water  was  placed  under  the  tube,  to  serve  as  the  quenching  medium. 

A  Brew  High  Vacuum  Furnace  was  also  used  for  heat  treatment  studies. 
Vacuums  on  the  order  of  10  ^  torr  were  easily  obtainable  at  the  tempera¬ 
tures  used  in  this  study.  A  platinum/plntinum-10%  rhodium  thermocouple 
was  used  to  monitor  temperature.  The  hot  zone  of  the  furnace  was 
6  inches  in  diameter  by  14  inches  high.  Tantalum  heating  elements  and 
shields  were  used.  The  furnace  design  was  of  the  cold  wall  type. 
Temperature  was  controlled  within  ±  5°F.  The  specimens  were  either 
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cooled  in  vacuo  or  by  backfill  inp,  the  furnace  chamber  with  helium  gas, 
which  passed  through  the  gas  train,  to  a  partial  pressure  of  640  torr 
(about  0.83  atmosphere).  The  cooling  rates,  as  measured  by  a  thermo¬ 
couple,  for  the  vacuum  cool  and  the  helium  quench,  are  presented  in 
Table  3. 

III.  LOW-CYCLE  FATIGUE 

A.  LCF  Specimen  Design  and  Manufacture 

The  specimen  design  is  shown  in  Figure  1.  The  outstanding  feature 
of  the  specimen  is  the  extensometer  ridges  located  on  either  side  of  the 
gauge  section.  This  allows  accurate  measurement  of  displacement  and 
the  ability  to  maintain  constant,  uniform  temperature  in  the  gauge 
section  using  a  clamshell  furnace.  The  disadvantages  of  the  system 
are  the  long  times  required  for  the  entire  system  to  roach  equilibrium 
(typically  2-3  hours)  and  the  fact  that  the  calculation  of  strain 
necessarily  involves  the  application  of  effective  gauge  lengths.  The 
details  of  the  load  train,  the  strain  measuring  system,  and  the 
equations  required  to  convert  displacement  to  strain  arc  discussed  in 
following  sections. 

The  specimens  were  manufactured  by  Metcut  Research  Associates  from 
blanks  sawed  from  a  portion  of  a  forged  shaf  .  Figure  2(a)  shows  a 
photograph  of  the  shaft  segment.  Specimen  blanks  were  sawed  from  tins 
segment  parallel  to  the  shaft  axis.  A  typical  cutout  ronf igurat i on  is 
depicted  in  Figure  2(b).  The  blanks  were  then  rounded  by  s* might  wheel 
grinding,  and  rough  machined  to  -  0.020  in.  oversize  in  the  gauge  section. 
The  specimens  were  given  a  standard  heat  treatment,  designated  as  STA  3A 
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Vacuum  Cool 

A.  Heat  Treatment  Temperature:  1975  F 


Temperature 

Average  Cooling  Rate 

i 

(°F) 

(°F/mln . ) 

-i 

1400 

192.0 

:.j 

1299 

97.6 

i 

ij 

1072 

72.2 

i 

893 

55.8 

l; 

709 

47.8 

' 

509 

27.1 

B.  Heat 

Treatment  Temperature: 

1400  F 

t 

1299 

100.0 

\ 

1072 

50.5 

893 

40.2 

1 

709 

28.2 

1 

509 

15.1 

C.  Heat 

Treatment  Temperature: 

1300  F 

i 

1072 

46.5 

89  3 

35.4 

709 

25.1 

509 

33.7 

t 


TABLE  3  (CONT'D) 
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Helium  Gas  Quench  (640  torr) 

A.  Heat  Treatment  Temperature: 

Temperature 

(°F) 


1975  F 

Average  Cooling  Rate 
_ (°F/min . ) _ 


1400 

1299 

1072 

893 

709 

509 


243.4 
214.6 
166.2 

137.4 

120.0 

116.4 


B. 


Heat  Treatment  Temperature:  1400  F 


1299 

85.5 

1072 

104.1 

893 

‘  92.0 

709 

83.6 

509 

75.4 

C. 


Heat  Treatment  Temperature:  1300  F 


Fatigue  Specimen  Design 
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prior  to  final  machining.  Tho  heat  treatment  parameters  for  STA  3A  are 
contained  in  Table  4.  The  specimens,  in  groups  of  nine,  were  heat 
treated  in  a  Brew  High  Vacuum  Furnace.  The  fixture  used  tc  support 
the  specimens  in  the  furnace  chamber  is  described  in  Section  V  of  this 
chapter. 

Final  machining  of  the  gauge  section  was  done  using  a  low-stress 
grinding  approach  (35).  The  machining  parameters  are  summarized  in 
Table  5.  Final  polishing  of  the  gauge  section  was  done  with  400-grit 
silicon  carbide  paper  using  water  as  a  lubricant,  followed  by  3/0  and 
4/0  Emery  polishing  paper  using  Buehler  Isocut  Fluid  as  a  lubricant. 

The  paper  was  cut  into  strips  approximately  0.20  inches  wide,  and 
polishing  was  done  axially  with  the  specimen  chucked  in  a  jeweler's 
lathe. 

B.  Ceramic  Coating  Procedure 

A  gas-tight  ceramic  coating,  Solarainic  5210,  was  applied  to  the 
gauge  sections  of  some  specimens  at  General  Electric's  Materials  and 
Processing  Laboratory  in  Evendale,  Ohio.  Before  the  coating  was 
applied,  the  gauge  section  was  vapor  blasted;  this  procedure  entailed 
impinging  fine  alumina  powder  (Novacite  1250/150,  supplied  by  Malvern 
Minerals)  in  a  water  stream  at  0.31  MFa  at  the  specimen  surface.  The 
Specimcn-to-surf ace  distance  was  kept  at  about  5  cm,  and  total  honing 
time  was  approximately  1  minute.  The  surface  had  a  bright  matte 
finish  after  the  vapor  blasting. 

The  ceramic  coating  was  then  applied,  and  baked  in  air  at  1750°F 
for  20  minutes,  and  air  cooled.  The  gauge  section  was  inspected  for 


spallation  of  the  coating,. 


TABLE  4 


SOLUTION 


STABILIZATION 


PRECIPITATION 


STANDARD  HEAT  TREATMENT  STA  3A 
FOR  INCOLOY  90] 


Heat  to  1975  °F  in  vacuuia 
Hold  within  ±4  F  for  2  hours 

Backfill  furnace  with  helium  gas  to  a  partial 
pressure  of  640  torr 


Heat  to  1400  °17  in  vacuum 

Hold  within  ±4  F  for  2  hours 

Backfill  furnace,  with  helium  gas  to  a  partial 
pressure  of  640  torr 


Heat  to  1300 °F  in  vacuum 

Hold  within  ±4  F  for  24  hours 

Backfill  furnace  with  helium  gas  to  a  partial 
pressure  of  640  torr 
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TABLE  5 

LOW  STRESS  GRINDING  PARAMETERS 

SPEEDS  Work  surface:  8-26  ft/min. 

Table  speed:  7  in. /min. 

Wheel  speed  for  traverse  grinding:  2800-3250 

ft/min . 

FEEDS  Traverse  grinding 

Roughing:  0.001  in. /pass 
Finishing:  Last  0.010  in.  (250  pm) 

First  0.0080  in.:  0.0005  in. /pass 
Next  0.0008  in.  :  0.0004  in. /pass 

Final  0.0012  in.:  0.0002  in. /pass 


Plung  grinding:  0.00002  to  0.00008  in. /rev. 


27 


C .  Specimen  Preparation  after  Rejuvenation 

After  the  specimens  were  thermally  rejuvenated  (see  Section  V-A) , 
the  gauge  section  was  axially  repolishcd  with  3/0  and  4/0  emery 
polishing  paper  as  described  above  in  Section  III-A.  This  provided 
a  good  quality  surface  for  replication;  an  oxided  surface  could  not 
be  replicated  without  loss  of  detail. 

After  the  specimens  were  HIP  rejuvenated  (see  Section  V-B)  ,  those 
specimens  which  were  ceramic  coated  were  mechanically  polished  with 
240-grit  polishing  paper  to  remove  the  coating.  The  specimens  were 
given  the  standard  STA  3A  (Table  5)  to  restore  the  morphology  of  the 
precipitates  in  the  matrix.  The  gauge  length  was  then  lightly  polished 
through  4/0  emery  polishing  paper  as  previously  described. 

D .  Load  Train  Configuration 

A  photograph  of  the  load  train  is  shown  in  Figure  3(a).  Note  that 
a  resistance-wound  clamshell  furnace  was  used  for  heating.  A  sketch  of 
the  load  train  xvitli  the  various  components  labelled  is  iliustrated  in 
Figure  3(b).  The  grip  design  is  contained  in  Figure  4.  A  molybdenum 
di-sulfide  lubricant  was  effective  in  preventing  binding  in  the  grips. 

E.  Strain  Measuring  System 

.  -  ...  .w.  ,  .  .V . — 

Although  commonly  referred  to  as  a  strain  measuring  system,  the 
system  employed  actually  measured  displacement  which  must  then  be 
converted  to  strain.  The  necessary  equations  to  accomplish  this  are 
described  in  Sections  III-F  and  IV-C.  Figure  5  is  a  photograph  of  the 
extensometer  system  used  in  this  investigation.  The  -ystem  features  a 
Satek  PSH-8MS  High  Temperature  Extensometer  with  a  Microformer  (Linear 


Figure  3b.  Sketch  of  Load  Train 
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Figure  4.  LCF  Specimen  Grip  Design 
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Variable  Differential  Transducer  or  "LVDT")  to  measure  displacement.  The 
suspension  arms,  which  lock  info  the  extensomet or  fixture,  bolt  around 
the  flanges  on  the  LCF  specimen  and  effectively  transmit  the  displace¬ 
ment  of  the  specimen  to  the  LVDT  located  beneath  the  furnace.  The 
length  of  the  suspension  arms  was  governed  by  two  criteria:  (a)  adequate 
length  to  allow  the  center  of  the  specimen  gauge  length  to  be  located  in 
the  center  of  the  furnace  hot  zone  with  a  one-inch  clearance  between  the 
top  of  the  extensometer  fixture  and  the  bottom  of  the  furnace;  and  (b) 
proper  difference  in  length  between  tile  top  and  bottom  arms  so  that  they 
would  lock  into  the  fixture  for  the  particular  flange  separation  distance 
used  for  the  LCF  specimen. 

Calibration  of  the  strain  measuring  system  was  accomplished  as 
follows:  The  extensometer  system  was  mounted  in  a  Boeckeler  Instrument 
Calibration  Fixture.  The  top  extension  arm  remained  fixed  and  the 
bottom  arm  was  movable  using  a  dial  calibrated  in  increments  of  0.0001 
inch.  The  LVDT  was  connected  to  an  Instton  Model  602A  Stroke  Controller. 
A  Resistance-Capacitance  (R-C)  balancing  network  was  adjusted  to  compen¬ 
sate  for  the  resistive  and  capacitive  characteristics  of  the  system. 

The  zero  suppression  control  was  used  to  give  a  zero  voltage  when 
the  LVDT  core  was  in  the  center  position  of  the  LVDT.  Output  was  read 
as  a  voltage  on  a  digital  voltmeter.  Voltage  readings  were  then  taken 
as  the  dial  was  advanced  in  increments  of  a  thousandths  of  an  inch  from 
0  mils  to  10  mils  to  -10  mils,  and  back  to  0  mils.  These  41  data 
points  were  then  used  to  compute  a  linear  least-square  error  line  of 
the  form  y  -  mx  +  b  (36)  where  y  is  the  displacement  in  volts,  x  is  the 
displacement  in  mils,  m  is  the  slope  of  the  line  in  volts/mi  1,  and  b  is 
the  y-intercept  value.  Table  6  contains  typical  data  obtained  from  a 
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calibration  run.  The  data  is  plotted  in  Figure  6.  Note  tliat  it  in  very 
linear.  The  inverse  slept1  of  this  graph,  or  1/m,  is  the  desired 
calibration  factor,  A,  in  volts  per  mil.  These  calibration  runs  were 
typically  done  before  and  after  each  l.CF  test. 

F.  Low  Cvc-lc  Fatigue  Testing 

All  LCF  testing  was  performed  on  an  Instron  Dynamic  Materials 
Testing  System.  The  testing  was  done  using  a  saw-tooth  wave  form  at 
a  frequency  of  0.4  Hz  under  strain  control  (actually  displacement 
control,  ns  explained  above)  with  zero  mean  level  (i.e.,  fully 
reversed).  The  signal  cable  connecting  Lhe  actuator  LVDT  with  the 
Stroke  Controller  was  disconnected  and  attached  to  the  extensometer 
LVDT  by  means  of  an  adapter  cable.  Specimen  displacement  thus  served 
as  the  feedback  to  the  controller.  Command  signals  to  the  setvovalve 
were  generated  by  two  different  techniques:  (a)  Instron  Model  860 
Function  Generator  (i.e.,  an  analog  computer),  and  (b)  instron  Series  900 
Computer  System,  utilizing  a  Computer  Automation  Alpha  16  Minicomputer. 
Load-displacement  hysteresis  loops  were  plotted  on  a  Hewlett  Packard 
Model  7004B  X-Y  Plotter. 

The  load  train  alignment  was  checked  and  the  load  cell  calibrated 
prior  to  each  test.  To  begin  the  actual  testing,  the  specimen  was 
loaded  into  the  grips,  the  extension  arms  were  attached,  and  a  ch  route  1- 
alumel  thermocouple,  was  placed  in  close  proximity  to  the  LCF  specimen 
surface  in  the  center  of  the  gauge1  length.  Then  the  clamshell  furnace 
was  placed  around  the  assembly.  All  testing  was  done  at  500°F. 
Temperature  was  controlled  using,  a  West  Guardsman  ('out  roller.  The 
specimen  was  heated  under  load  control  at.  a  tensile  stress  of  3  ksi. 
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Once  the  temperature  and  the  indicated  specimen  displacement  readings 
had  equilibrated,  the  Stroke  Zero  Suppression  control  was  used  to 
obtain  zero  voltage  output  of  the  LVDT  at  zero  load. 

The  operation  of  the  Function  Generator  was  fairly  straightforward. 
The  proper  amplitude  setting  to  provide  the  desired  strain  range  was 
empirically  determined,  using  several  specimens. 

Testing  under  computer  control  required  the  use  of  a  computer 
program.  Instron's  Low  Cycle  Fatigue  Application  Program  APP-900-A3A8 
(1974)  was  modified  to  provide  more  frequent  and  better  formatted  data 
output.  The  Appendix  contains  the  source  listing  of  the  modified 
program.  The  address  locations  are  in  hexadecimal  notation.  The 
program  was  assembled  using  an  Alpha  16  Assembler.  Program  parameters 
were  entered  via  a  teletype  keyboard.  Output  was  accomplished  by  tele¬ 
type  printer  arid  punched  paper  tape.  The  frequency  of  data  output  was 
governed  only  by  the  speed  of  the  paper  tape  punch.  The  fastest  rate 
that  data  could  ho  recorded  vras  every  three  cycles  at  the  test  strain 
rate.  The  data  on  paper  tape  was  processed  by  another  program,  written 
in  Fortran,  on  a  CDC  6600  computer.  This  program  provided  data, 
typically  every  five  cycles,  in  tabular  format  for  the  following 
parameters:  total  displacement,  plastic  displacement,  maximum  elonga¬ 

tion,  minimum  elongation,  stress  range,  maximum  stress,  minimum  stress, 
the  ratio  of  maximum  stress  to  minimum  stress,  elastic  strain  range, 
plastic  strain  range,  and  total  strain  range.  Also,  the  program 
generated  plots  of  stress  range  versus  cycles,  ratio  of  maximum  stress 
to  minimum  stress  versus  cycle.'.,  and  strain  range  versus,  cycles.  A 
source  listing  of  the  computer  program  is  contained  in  the  Appendix. 
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The  Instron  computer  program  required  a  specification  of  strain 
rate,  rather  than  frequency.  Equation  1  is  the  appropriate  expression 


relating  frequency  to  strain  rate: 

u  =  2v  Au  (1) 

where  ii  is  "strain"  rate  (actually  displacement  rate)  in  mils  per  second, 
v  is  frequency  in  hertz  (cycles  per  second) ,  and  Au  is  displacement  in 
mils. 

The  instron  was  capable  of  controlling  displacements  to  if). 00004  in. 
A  typical  plot  of  displacement  versus  cycles  is  shown  in  Figure  7. 


G .  Computation  of  Strain  Range  and  Stress  Range 


As  previously  explained,  the  strain  measuring  system  actually 
measured  displacement.  Since  the  cross-section  of  the  T.CF  specimen 
between  the  extensometer  flanges  was  not  uniform,  as  is  apparent  from 
Figure  1,  the  computation  of  strain  involved  consideration  of  an  effec¬ 
tive  gauge  length.  An  effective  gauge  length  is  defined  as  that  gauge 
length  of  uniform  cross-sectional  area  which  produces  the  same  displace¬ 
ment  under  the  application  of  a  given  load  as  does  the  gauge  section  of 
variable  geometry.  Use  of  the  effective  gauge  length  concept  is  made 
in  the  following  equation  which  allows  the  computation  of  strain  from 
displacement  data: 


Act  =  Ace  +  AcP  =  ~Te 


u.  -  u 

t  _£ 


+ 


off 


tP 

eff 


(2) 


where  Ar  is  the  total  strain  range,  At.  is  the 
t  c 

A(~p  is  the  plastic  strain  range,  u^  is  the  total 
(in  inches),  u  is  the  plastic  displacement  (in 
effective  gauge  length  in  the  clastic  regime  (in 


e las tic 
sp crime 
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strain  range, 
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the  effective  gauge  length  in  the  plastic  regime  (in  inches).  Now, 
and  Up  can  be  measured  directly  from  the  hysteresis  loop  plots  or  can 
be  obtained  from  the  computer  data. 

Equation  3  was  used  to  compute  displacement  in  thousandths  of  an 
inch  when  displacement  distances  were  measured  from  hysteresis  loop 
plots: 

u  =  A  *  s  •  £d  (3) 

where  u  is  displacement  (in  mils),  1  is  the  LVDT  calibration  factor, 
m  ^  (in  mils/volt),  s  is  the  plotter  chart  scale  factor  (in  volts/inch 
of  chart),  and  is  the  measured  chart  distance  along  the  displacement 
axis  of  the  hysteresis  loop  plot  (in  inches). 

The  plastic  effective  gauge  length,  L^^.,  was  assumed  to  be  the 
straight  portion  of  gauge  length.  This  straight  segment  was  measured 
for  each  specimen  using  a  traveling  microscope.  Measurements  were  made 
along  the  top  and  bottom  surfaces  of  a  specimen  supported  horizontally; 
these  were  then  averaged  and  rounded  off  to  two  significant  figures. 

The  experimental  determination  of  the  elastic  effective  gauge 
length,  involved  comparing  the  slope  of  a  stress-displacement 

curve  to  a  known  elastic  modulus  value.  The  equation  of  interest  was: 


L®,  =  EACT 
G  Ao/Au 


(A) 


where  is  the  effective  elastic  gauge  length  (in  inches),  is 

the  known  Young’s  Modulus  (in  psi) ,  Aa  is  the  stress  range  (in  psi), 
and  Au  is  the  displacement  range  (in  inches). 

The  calculation  of  stresis,  using  distances  measured  along  the  load 
axis  on  the  fatigue  hysteresis  loop,  was  done  by  applying  Equation  5: 


AO 

o  =  k  •  (l/d£)  •  t  •  (5) 

where  o  is  stress  (in  psi) ,  k  is  a  constant  =  6.367  *  10  when  the  full 
scale  load  is  5000  lbs,  dQ  is  the  specimen  diameter  (in  inches),  t  is 
the  plotter  chart  scale  factor  (in  volts/inch  of  chart),  and  Cl  is  the 
measured  chart  distance  (in  inches)  along  the  load  axis  of  the  hysteresis 
loop  plot, 

H .  In  Situ  Sur face  Replication 

When  it  was  necessary  to  interrupt  a  fatigue  test  in  order  to 
replicate  the  gauge  length  of  the  specimen,  the  specimen  was  not 
removed  from  the  load  train  but  rather  replicated  in  place  in  order  to 
maintain  the  same  alignment  (37).  The  procedure  is  detailed  below. 

After  the  LCF  test  was  halted,  while  the  specimen  was  going  into 
compression,  the  system  was  placed  in  Load  Control  with  a  mean  level  of 
zero.  Then  the  stroke  value  was  rpcorded.  A  mean  tensile  stress  of 
about  3  ksi  was  then  imposed  on  the  specimen.  The  furnace  was  removed 
and  a  small  fan  was  used  to  speed  the  cooling  of  the  load  train.  After 
the  system  was  at  room  temperature,  the  actuator  was  turned  off,  the 
thermocouple  pulled  back,  and  the  extensometer  removed.  These 
procedures  exposed  the.  gauge  section.  The  gauge  section  was  cleaned 
with  acetone  and  the  replication  was  accomplished  as  explained  in 
Section  I-D. 

In  order  to  restart  the  test,  the  extensometer  was  reattached  and 
the  thermocouple  placed  back  in  position.  The  actuator  was  turned  on, 
and  a  mean  tensile  stress  of  about  3  ksi  was  imposed.  The  furnace  was 
placed  back  around  the  load  train.  When  the  system  was  equilibrated, 
both  with  respect  to  temperature  and  dimensions,  a  zero  mean  level  was 
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imposed  and  tlie  Stroke  Zero  Suppression  Control  was  used  to  set  the 
same  stroke  value  which  was  recorded  when  test  was  initially  stopped. 
Then  the  test  was  restarted. 

IV.  TENSILE  TESTING 

A .  Specimen  Configuration 

The  same  specimen  design,  shown  in  Figure  1  for  LCF  testing,  was 
used  for  tensile  testing.  Specimen  manufacture  was  also  done  in  the 
same  way. 

B.  Machine  Description 

Mechanical  testing  was  performed  on  an  Instron  Tensile  Testing 
Machine,  Model  TT-C.  The  cross-head  was  moved  at  a  constant  speed 
utilizing  an  amplidyne  drive  and  selsyn  control  elements.  A  Leeds  and 
Northrup  chart  recorder  (1.5  seconds  full  scale  response  time)  was 
driven  by  the  output  from  the  extensometer  LVDT.  Load  was  measured  by 
an  Instron  Load  Cell.  The  chart  was  operated  at  100  lbs  full  scale  to 
provide  good  sensitivity  of  the  load-displacement  curve.  The  load  cell 
and  the  LVDT  gain  control  were  calibrated  prior  to  each  test.  The  load 
train  and  furnace  assembly  were  essentially  the  same  as  showTn  in 
Figure  3  for  the  LCF  testing. 

C .  Computation  of  Stress  and  Strain 

Stress  was  simply  computed  by  dividing  the  load  by  the  cross- 
sectional  area  of  the  specimen.  The  strain  was  computed  in  an  analogous 
manner  to  that  for  the  LCF  data.  Thus,  a  relationship  was  required  to 
convert  displacement  to  strain.  It  is  certainly  true  that 


< 
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where  e  is  total  strain, 
strain.  But 


=  r  +  c 
t  e  p 


e.  is  elastic  strain,  and 
e 


c  is  plastic 
P 


(6) 


(7a) 


and 


(7b) 


where,  a  is  the  stress  (in  psi)  ,  E  is  Young's  Modulus  (in  ksi)  ,  u^  is 

the  plastic  displacement  of  the  gauge  section  (in  inches) ,  u  is  the 

total  displacement  of  the  gauge  section  (in  inches) ,  is  the  elastic 

0 

displacement  of  the  gauge  section  (in  inches)  ,  is  the  effective 

gauge  length  in  the  elastic  regime  (in  inches),  and  is  the 

effective  gauge  length  in  the  plastic  regime  (in  inches).  Thus,  it  is 
apparent  that: 


o  •  L 


o  ut  "  “ 

e.  =  —  H - 

t  L  Tp 


eff 


(8) 


“‘eff 


So,  Equation  8  is  the  desired  relationship, 


V.  REJUVENATION  TREATMENTS 
A.  Thermal  Treatments 

The  only  thermal  rejuvenation  treatment  which  was  investigated  was 
STA  3A  which  is  defined  in  Table  4.  It  was  necessary  to  suspend  the 
specimen  vertically  in  the  furnace  in  order  to  minimize  creep  effects 
which  could  warp  the  specimen.  A  heat  treating  fixture,  shown  in 
Figure  8(a)  and  Figure  8(h),  was  designed  to  support  the  specimens  in 
the  center  of  the  furnace  hot  zone.  This  fixture  minimized  the 
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possibility  of  specimen  distortion,  did  not  adversely  affect  critical 
machined  surfaces,  and  was  fairly  simple  to  use.  It  held  nine  specimens 
The  cap,  depicted  in  Figure  8(b),  fit  over  the  LCF  specimen  button  head. 
Fine  Nichrome  wire  was  threaded  into  the  two  holes  on  each  side  of  the 
cap,  and  thus  the  specimen  was  supported  on  the  surface  under  the 
button  head.  Chromel  wire,  with  a  bead  on  one  end,  was  threaded 
through  the  hole  at  the  top  of  the  cap.  This  wire  was  then  pulled 
through  a  hole  on  the  top  plate  of  the  fixture  shown  in  Figure  8(a). 

The  material  used  to  manufacture  the  fixture  and  cap  was  AISI  1020  steel 

B .  Hot  Isostatic  Pressing  (HIP)  Treatments 

The  HIP  processing  was  conducted  in  a  small,  high-pressure,  7-in. 
i.d.  x  14-in.  long,  HIP  unit  at  Kelsey-Hayes ,  Detroit,  Michigan.  The 
chamber  was  designed  by  Autoclave  Engineering,  Erie,  Pennsylvania.  The 
heating  elements  were  Kanthal  wound,  supplied  by  Conway  Pressure 
Systems,  Columbus,  Ohio. 

The  fatigue  specimens  were  vertically  supported  in  a  special 
fixture,  shown  in  Figure  9.  The  same  button  head  cap  design,  depicted 
in  Figure  8(b)  was  used. 

The  temperature  and  pressure  profiles  for  the  HIP  run  are  shown 
in  Figures  10  and  11.  The  autoclave  gas  used  was  commercially  pure 
argon. 

A  summary  of  the  HTP  run  is  as  follows:  The  specimens  mounted  in 
the  fixture  were  loaded  into  the  HIP  chamber.  The  system  was  flushed 
with  argon  gas  ur'i.l  the  atmosphere  was  primarily  argon.  The  unit  was 
slowly  heated  to  2050°F  and  the  pressure  was  raied  to  15  ksi.  The 
2050°F  temperature  was  maintained  for  one  hour,  then  the  temperature 
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Figure  10.  Plot  of  Temperature  vs  Time  for  HIP  Run 
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was  lowered  to  1975°F  while  maintaining  15  ksi.  After  two  hours  at 
1975°F,  the  pressure  was  released  and  the  heating  elements  wen  turned 
off.  When  the  chamber  temperature  reached  1700°F,  the  uni..  <  *s  opened, 
and  the  fixture  removed.  It  was  then  placed  in  an  argon  gas  stream 
until  it  reached  ambient  temperature. 

VI.  SOaIC  MODULUS  TESTING 

Moduli  of  elasticity  were  measured  at  room  temperature  using  a 
Magnaflux  FM-500  Elastomat.  A  right  cylindrical  rod  was  centerless 
ground  to  a  uniform  diameter  of  0,4983  inches.  The  rod  was  4.483  inches 
long  and  weighed  117.625  g. 

The  test  rod  was  suspended  at  its  nodal  points  by  adjustable 
cross  wires.  Mechanical  vibration  was  transmitted  to  the  sample  by  a 
piezoelectric  transducer  by  means  of  a  0.004-inch  Niohrome  wire  spot 
wleded  to  the  rod  about  0.010  Inch  from  the  circumference.  Another 
transducer,  similarly  connected  on  the  other  side  of  the  rod,  received 
the  mechanical  vibration  from  the  specimen.  The  rod  was  excited  by 
means  of  a  variable  frequency  oscillator  which  contained  a  digital 
counter.  The  resonant  frequency  was  determined  by  t ho  appearance  of  a 
circular  Lissajou  figure  on  an  oscilloscope.  The  oscilloscope  had  the 
voltage  output  of  one  transducer  connected  to  the  x-axis  and  the 
voltage  output  of  the  other  transducer  connected  to  the  y-axis.  In 
such  a  manner,  the  resonant  frequencies  for  the  longitudinal  (Young's) 
modulus,  transverse  modulus,  and  shear  modulus  wore  measured.  The 
following  equal  ions  wore  then  used  to  compute  the  moduli: 


( 
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Longitudinal  (Young's)  Modulus  (39): 


Shear  Modulus  (39) 


4.00  x  10~/t  p  f.2  f2 
6.895 


4.00  x  IQ-4  p  £2  f2 

67895 


Transverse  Modulus  (40) : 


1.261886  x  10  4  p  £2  f2  T 

6JB95  72 


Shape  Correction  Factor,  (41) : 


Tx  =  1  +  4.88669 


+  1.26223  v  +  0.2098  v21  '  d  \  2 


1  +  v 


where  p  is  density  (in  g/cc);  £  is  length  (in  cm) ;  d  is  diameter  (in  cm); 

f G’  an<^  T  are  resonant  frequencies;  E,  C,  and  £-j.  are  the  elastic 

moduli!  (in  psi) ;  and  v  Is  Poisson’s  ratio. 
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j  *  Chapter  3 

f  I  RESULTS  AND  DISCUSSION’ 


I.  AGING  RLSPONSL  OF  INCOLOY  901 

A .  Cb a  ract  or  iyj ) t_ L on  o  f  As- 1 b -cei ve d  M  i  e rostructure 

The  micros tructure  of  the  lncoloy  90 I  forging  was  examined  using 
a  metal. logrnph ,  a  transmission  electron  microscope,  and  an  electron 
microprobo. 

Figure  12  shows  a  typical  microstructure.  Using  the  ASTM  Linear 
Intercept  Method  to  measure  grain  size  (42),  the  grain  size  was 
determined  to  be  90  pm  or  ASTM  Equivalent  Grain  Size  3.5.  Part icularlv 
evident  in  Figure  12(a)  are  the  inclusion  stringers  which  parr.  1 1  el  the 
forging  direction.  Figures  12(h)  and  12(c)  are  higher  nngnii i cation 
photographs  of  these  inclusions.  It  is  evident  that  these  particles 
act  as  obstacles  to  grain  boundary  migration  and  thus  assist  in 
controlling  the  grain  size  during  processing  and  thermal  treatment. 

Figures  12(a)  and  12(c)  contain  several  annealing  twins.  These  twins  were 
commonly  observed  in  the  ns- received  material.  Also  evident  in  Figures 
12(b)  and  12(c)  arc  much  smaller  particles. 

Figure  13  is  an  electron  image  produced  in  a  microprobo  of  a 
lightly  etched  sample.  This  clearly  shows  that  there  are  two  difterent: 
part  i  c.le  morphuJ  oj,i  es  . 
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Qualitative!  electron  probe  analysis,  shown  in  Figure  14,  clearly 
identifies  the  large,  blocky  phase  as  a  titanium/molybdenum  carbide. 
Quantitative  analysis  indicates  that  these  are  MC-type  carbides  with 
slightly  varying  proportions  of  titanium  and  molybdenum.  A  typical 
carbide  had  the  composition  Tirt  0Mo  C.  The  sizes  of  these  primary 
carbides  typically  ranged  from  2-15  pm. 

The  small  symmetrical  particles  in  Figures  13  and  14  were  approxi¬ 
mately  1  pm  in  size  and  thus  were  difficult  to  quantitatively  analyze. 
However,  the  results  from  an  electron  mlcroprobe  quantitative  analysis 
indicated  the  following  composition  in  weight  percent:  Ti-9.88,  Co-13.52, 
Fe-8.55,  Ni-3.42,  Mo-52.23;  difference  from  100%  is  12.40.  Although 
boron  could  not  be  analyzed  for  in  the  microprobe,  this  analysis  is 
consistent  with  the  hypothesis  that  these  particles  are  t>or^cs. 

Furthermore,  Beattie  electro! yt icall y  extracted  similar  particles  from 
Incoloy  901  and  analyzed  them  chemically  and  by  x-ray  diffraction  (69). 

Ilis  conclusion  was  that  these  particles  were  borides. 

Transmission  electron  microscopy  was  used  to  characterize  the 
small  y '  precipitates  and  the  grain  bound  try  precipitates.  Figure  15 
shows  y'  in  dark  field.  The  particles  have  a  spherical  morphology  and 
an  average  diameter  of  300  !\  units.  Figure  16  shows  the  grain  boundary 
precipitates.  These  are  MC  carbides  of  the  type  (Ti,Mo)C  rather  than 
^23^6  c n r c s  (70).  It  should  be  noted  that  some  grain  boundaries,  as 
indicated  in  Figure  17,  were  relatively  free  of  precipitates. 

15.  Development  of  Standard  Solution  and _ Doubl o-Agod  Treatment 

Since  the  LCF  test  specimens  were  cut  from  different  portions  of 


a  shaft  forging,  it.  was  desired  to  subject  them  all  to  a  standard. 
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known  heat  treatment  prior  to  testing.  Also,  this  standard  heat 
treatment  could  be  used  for  thermal  rejuvenation  and  to  restore  the 
microstructure  of  hot  isostat ically  pressed  specimens.  Table  2 
contains  the  specification  for  the  commercial  heat  treatment.  Since 
the  minimization  of  grain  growth  was  an  important  consideration  in 
developing  the  standard  heat  treatment,  the  lowest  portion  of  the 
time  and  temperature  ranges  were  selected  for  the  solutioning  treatment. 
The  drop  furnace  was  used  to  rapidly  quench  a  piece  of  material  which 
was  subsequently  examined  by  transmission  electron  microscopy.  Tt  was 
determined  that  2  hours  at  1975°F  was  sufficient  to  dissolve  all  phases 
except  for  the  primary  MC  carbides. 

All  heat  treatments  were  done  in  a  vacuum  furnace  to  minir.  i.ze 
surface  contamination.  However,  it  was  necessary  to  backfill  the 
furnace  with  helium  gas  in  order  to  obtain  a  high  enough  cooling  rate 
to  prevent  the  nuclcation  and  growth  of  undesirable  precipitates  and 
precipitate  morphologies.  Such  undesirable  grain  boundary  morphologies 
are  shown  in  Figure  18.  Figure  18(a)  shows  needles  of  a  n  phase 
growing  out  from  a  grain  boundary  MC  precipitate  in  a  platelet 
morphology,  and  Figure  18(b)  is  a  dark  field  view  of  the  MC  platelets 
growing  out  from  a  grain  boundary.  These  precipitates  were  formed  during 
vacuum  cooling  from  the  solutioning  temperature  because  the  cooling  rate 
was  too  slow.  Tt  was  found  that  backfilling  the  furnace  to  640  torr  of 
helium  gas  produced  t  lie  proper  grain  boundary  morphology.  The  standard 
heat  treatment,  designated  as  STA  3A,  is  presented  in  Table  4. 
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The  effect  of  STA  3A  on  grain  size  was  measured.  The  average 
grain  size  was  increased  to  120  ).ri  (ASTM  Equivalent  Grain  Size  3), 
hut  remained  fairly  stable  at  this  size  with  subsequent  heat  treatments. 
The  matrix  was  not  dislocation-free,  hut  the  dislocations  were  randomly 
oriented. 

C .  Micros true tnre  Response  at  Elevated  Temperatures 

In  order  to  better  understand  the  physical  metallurgy  of  Incoloy  901, 
the  microstructure  which  developed  at  1500°F  and  1700°F  was  studied  using 
a  drop  furnace.  After  6  hours  at  15006F,  no  change  in  the  grain  size 
occurred.  The  fine  y1  coarsened  appreciably,  approximately  doubling 

O 

in  size  to  600  A  units.  The  grain  hound  irv  carbides  developed 
a  hlocky  morphology. 

After  6  hours  at  1700 CF,  no  change  in  the  grain  size  occurred.  The 
change  in  precipitates  was  dramatic.  No  y *  was  seen,  although  the 
sol vus  temperature  is  assumed  to  be  172r>°F  (17).  The  platelet 
morphology  of  the  n  phase  is  evident  from  the  transmission  electron 
micrographs  in  Figure  19.  Figure  20  shows  these  t|  platelets  at  lower 
magnification  as  seen  in  a  met al lograph . 

D.  Nicrostrnet  uro  Rcs.iil  t  inc. _f  rpm  Hoi  Jsoetajj''  i’ressjng  (HIP) 

Hot  isostatic  pressing,  o(  supers  1  1  oys  is  normally  accomplished  at 
very  high  temperatures;  i  . e . ,  above  the  1°7'>',F  solut  toning  temperature  of 
Incoloy  901.  Jn  an  at  tempt  to  measure  t!ie  eilee'  on  grain  growth  T 
these  high  llil’  temperature:'.,  one  piece  of  material  was  heated  in  a 
vacuum  fun  ace  to  210()CF  lor  l  ive  hours  and  and  hi  r  piece  was  heated 
to  20r)0  °F  lor  three  hours.  The  average  era :  n  sice  after  the  2100°F 
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heat  treatment  was  237  pm  (ASTM  Equivalent  Grain  Size  1).  The  average 
grain  size  which  resulted  Iron  the  2030°)  heat  treatment  was  181  pin 
(ASTM  Equivalent  Crain  Size  1.5). 

Figure  21  shows  photomicrographs  of  a.s-IIl  Ped  material  (15  ksi 
pressure,  1  hour  at  2050°F,  2  hours  at  1975C’F).  Mote  that  the  primary 
carbides  helped  to  control  grain  growth.  There  also  appears  to  be 
some  i|-phase  precipitation  which  occurred  during  cooling.  Except  for 
the  primary  carbides  and  n  platelets,  transmission  electron  microscopy 
did  not  reveal  any  other  precipitates.  The  grain  size  was  about 
150  pm,  or  ASTM  Equivalent  Crain  Size  2. 

When  the  as-IilPed  material  was  given  the  standard  ;,TA  3A  heat 
treatment ,  the  desirable  morphology  and  distribution  of  precipitates 
was  restored. 

II.  MECHANICAL  PROPERTIES 

A .  Tensile  Proper ties 

The  measured  tensile  properties  of  the  Incoloy  001  test  specimens, 
after  ST  A  3A,  arc  summarized  in  Table  7.  These  properties  (at.  room 
temporal  tiro)  are  well  above  the  specified  min Jours  of  100  ksi  yield 
strength  and  150  ksi  ultimate  tensile  strength  (43). 

B.  Elastic  Constants 


The  elastic  moduli  were 

measured  at 

room  to 

Tipper; 

it  lire 

us  in;.; 

an 

Elastomat  Sonic  Modulus  Teste 

r.  Young's 

Modulus 

was 

dolei 

*ir.i  nod 

t  o  b  e 

30.2  >*  It)6  psi.;  tlu'  corrected 

l  nmsvcrse 

ivodu.l  us 

was 

30 . 3 

X  It)6 

ps  f ; 

the  she.!  r  modulus  was  11.2  x  l(r'  psi;  and  Poisson’s  ratio  was  0.35. 
Young's  Modulus  ol  29.0  *  It)6  ps  i  at  room  temperature  and  27.  M  x  1  06 
psi  at  300  T  have  boon  report  <•<!  I  n"  i  mechanical  test  data  (44). 
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III.  LOW-CYCLE  FATIGUE  BASELINE  TESTING 
A.  Determination  of  Effective  Cautpa  Loup  th 

The  low-cycle  fatigue  specimen  design  (Figure  1)  requires  the  use 
of  an  effective  gauge  length  in  order  to  compute  a  strain  from  the 
measured  displacement  between  the  flanges.  A  plot  of  Stress  vs 
Displacement  at  room  temperature  is  shown  in  Figure  22,  and  Figure  23 
shows  Stress  vs  Displacement  at  500°F.  The  slope  of  the  linear 
portions  of  these  curves  is  an  effective  modulus,  Aa/Au  (recall 
Equation  4).  Thus,  Equation  4  allows  computation  of  the  effective 
elastic  gauge  length,  L^^,  once  the  effective  modulus,  Aa/Au,  is 
known.  Using  a  linear  least  square  error  curve  fit  to  the  linear 
portion  of  the  data  in  Figures  22  and  23,  the  effective  modulus  at 
70°F  was  found  to  be  58.76  x  10^  psi/in.  with  a  correlation  coefficient 
of  0.9999.  At  500°F,  the  effective  modulus  was  found  to  be  54.89  x  10^ 
psi/in.  with  a  correlation  coefficient  of  0.999.  The  results  are 
summarized  in  Table  8.  Strain  was  then  computed  using  Equations  2  and  8. 


Table  8 

EFFECTIVE  ELASTIC  GAUGE  LENGTH 


Tempera turc 
(°F) 


Young's  Modulus 
(>.10“6  psi) 


Effective  Modulus  Effective  Elastic 
(x]0-^  psi/in.)  Gauge  Length  (in.) 


70  30.2  58.76  0.51 

500  27.5  54.89  0.50 


Stress  vs  Displacement  at  70°F 
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B .  Cyclic  Stress-Strain  Curve 

Using  Lhe  methodology  described  by  Manson  (3) ,  a  comparison  of  a 

500°F  static  stress-strain  curve  with  the  500°!'  cyclic  stress-strain 

curve  was  made.  For  experimental  ease,  the  tensile  data  used  was 

_2 

measured  at  a  strain  rate  of  2  x  10  in . /in . /min . ,  while  the  cyclic 
data  was  obtained  at  a  higher  strain  rate  of  3.3  *  10  ^  in. /in. /min. 

The  tensile  data  presented  in  Table  7  shows  that  Lhe  mechanical 
properties  of  this  alloy  at  500°F  are  not  very  sensitive  to  strain 
rate  within  the  range  studied;  thus,  this  comparison  is  not  expected 
to  be  in  significant  error. 

Figure  24  is  the  cyclic  stress-strain  curve  compared  to  the  static 
curve.  At  the  lower  strain  ranges,  the  alloy  cyclically  softens;  and, 
at  the  higher  strain  ranges,  it  cyclically  haidens.  For  total  strain 
ranges  greater  than  2.02,  Merrick  observed  rapid  strain  hardening  of 
Incoloy  901  at  room  temperature  and  at  1000°F  (16).  The  strain  rate 
was  not  specified.  Hardening  peaked  at  about  10  cycles,  then  gradual 
softening  occurred.  Very  rapid  strain  hardening  was  observed  in  this 
work  also.  The  strain  softening  which  occurred  happened  very  gradually. 

Cyclic  strain  hardening  has  been  explained  phenomenologically  as 
being  caused  by  dispersal  of  slip  onto  neighboring  slip  planes,  and 
analogous  to  unidirectional  hardening  (4,66,67).  The  cyclic  softening 
is  due  to  the  concentration  of  cyclic  slip  in  the  active  slip  bands 
(4,64,65,68).  Thus,  the  shape  of  the  cyclic  stress-strain  curve  can 
be  explained  as  follows:  At  the  higher  strain  ranges,  strain 
hardening  lias  occurred  but  since  the  lifetimes  at  these  high  ranges  is 
short,  there  was  insufficient  time  for  appreciable  strain  softening  to 
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occur.  At  the  lower  strain  ranges,  the  lifetimes  are  relatively  long 
and  hence  there  was  time  for  softening  to  occur. 

C .  Characterization  of  Fatigue  Damage 
i.  Baseline  Data 

A  summary  of  the  baseline  data  is  presented  in  Table  9.  The  stress 
range  reported  is  the  stabilized  range.  The  initiation  cycle,  Nj_ ,  was 
determined  by  extrapolating  the  asymmetric  load  drop  back  to  the  stable 
stress  range  on  a  plot  of  expanded  Stress  Range  vs  Cycles  (2) .  A 
typical  plot  of  this  type  is  shown  in  Figure  25.  The  tr.  nsition  to  the 
rapid  load  decrease,  N^',  was  determined  by  the  point  at  which  the  load 
drop-off  was  no  longer  linear.  The  cycles  to  failure,  ,  was  deter¬ 
mined  when  the  maximum  tensile  stress  was  20  ksi.  Figure  26  is  a  log- 
log  plot  of  Strain  Range  vs  Cycles.  Table  10  contains  the  constants 
for  the  linear  least  square  fit  lines  of  Figure  26.  Using  the  data  in 
Table  10,  the  following  Cof f i n-Manson  type  equations  can  be  derived: 


Ac  =  8.15  N  0,295 

t 

(13a) 

A  ,  ,r  -0.114 

Ac  =  1.75  N 
e 

(13b) 

Ac  =  71.29  N-0,898 

(13c) 

P 

The  data  estimated  from  Merrick  (16)  was  obtained  by  merely  averaging  his 
room  temperature  and  ]000°F  data.  Figure  27  compares  the  trend  line  for 
Cycles  to  Initiation  with  Cycles  to  Failure. 

Plots  of  Stress  Range  vs  Cycles  for  the  baseline  specimens  listed  in 
Table  9  are  contained  in  Figures  2S-38,  respectively.  Note  that  these 
plots,  in  general,  contain  data  obtained  by  measurement  of  hysteresis 
loops  and  by  output  from  the  Inslron  Minicomputer .  The  computer  data 
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TABLE  10 


LINE  CONSTANTS  FOR  log  Ac  vs  log  N  CURVE 


b* 

m* 

Aet 

0.911 

-0.295 

Atp 

1.853 

-0.898 

Aee 

0.242 

-0.114 

*Equation  is  of  the  form: 

log  Ac  =  m  log  N  +  b 

where  Ae  is  strain  range  (,") 

N  is  number  of  cycles 
m  is  slope  of  the  line 
b  is  the  y- intercept 
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Stress  Range  vs  Cycles  -  LCF  Specimen  33 
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was  obtained,  in  general,  at  every  fifth  cycle.  The  hysteresis  loop 
data  was  usually  obtained  every  109  cycles.  The  effect  of  rejuvenation 
efforts  will  be  discussed  with  respect  to  this  baseline  data. 

ii.  Dislocation  Substructure 

A  typical  dislocation  substructure  after  a  test  is  shown  in  Figure 
39.  The  dislocations  are  aligned  in  bands,  giving  rise  to  the  planar 
slip  characteristics  of  this  alloy.  The  dislocations  are  bowed  around 
and  looped  around  y*  precipitates,  although  cutting  of  the  precipitates 
cannot  be  ruled  out.  Stacking  fault  contrast  was  observed  in  some 
precipitates,  leading  to  the  conclusion  that  they  had  been  sheared. 

Using  surface  replication  techniques,  others  have  observed  sheared  y* 
on  the  surface  (16) .  Not  every  foil  showed  the  concentration  of  slip 
bands  depicted  in  Figure  39.  Thus,  deformation  even  at  these  higher 
strain  ranges,  is  still  somewhat  localised. 

iii.  Fractography 

Extensive  fractography  was  carried  out  on  samples  which  were 
removed  unbroken  from  the  fatigue  machine  and  subsequently  broken  in 
tension.  This  procedure  preserved  the  character  of  the  fracture  surface 
The  fractures  were  mixed  mode,  with  both  intergranular  and  transgranular 
regions.  This  behavior  has  been  observed  by  others  (16,45).  A  typical 
fractograph  for  LCF  Specimen  33  is  shown  in  Figure  40.  Figure  41  is  a 
higher  magnification  view  of  a  likely  crack  initiation  area.  This  was 
determined  by  following  fatigue  striations  back  to  the  edge.  Typical 
fatigue  striations  are  shown  in  Figure  42.  Striations  were  seen  close 
to  the  edge.  Figures  43(a)  and  43(b)  demonstrate  the  cracking  of 
carbides  which  lie  on  the  fracture  surface.  The  morphology  of  the 


a.  Planar  Dislocations 


Fij’uro  39.  Tl'M  111  crop. rapii  of  F.ilipuod  Specimens  with  Planar  Dislocations 


■  lOum. 


a.  Cracked  Titanium  Carbide  Particle 


b.  Cracked  and  Pull-Out  Titanium  Carbide 
Particles 


Fij-.ure  43.  SF.M  Tract  ograpb ,  Cracked  Carbides 
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carbide  shown  in  Figure  43(a)  suggests  it  may  be  a  carbo-sulf ide,  The 
presence  of  these  carbides  may  contribute  to  the  large  amount  of  longi¬ 
tudinal  cracking  which  has  been  observed  in  this  alloy  (9) . 

D.  Crack  Initiation  Mechanisms 
i.  Surface  Replication 

Surface  replication  during  the  course  of  fatigue  testing  was  done 
in  order  to  find  the  fraction  of  life  at  which  crack  initiation  at  500°F 
occurred  for  total  strain  range  of  0.75%.  Two  specimens,  LCF  Specimen  7 
and  LCF  Specimen  8,  were  replicated  at  500-cycle  intervals.  A  composite 
of  the  replicas'  photomicrographs  are  presented  in  Figures  44  and  46. 
Figure  44(a)  shows  the  replication  after  500  cycles  of  the  area  where 
the  crack  will  initiate  in  LCF  Specimen  7.  At  this  magnification,  there 
is  no  apparent  crack,  but  persistent  slip  lines  are  evident.  Figure 
44(b),  after  1000  cycles,  still  does  not  show  a  microcrack,  but  more 
intense  deformation  concentrated  in  the  Slip  bands  and  grain  boundaries 
is  evident.  Figure  44(c),  after  1500  cycles,  shows  the  first  indication 
of  microcracking.  In  Figure  44(d),  after  2000  cycles,  the  cracking  lias 
extended  into  a  persistent  slip  band.  In  Figure  44(e),  after  2500 
cycles,  another  microcrack  becomes  evident  on  the  left-hand  side.  By 
Figure  44(f),  after  3305  cycles,  the  two  cracks  have  lined  up  and 
further  extended.  In  the  final  series.  Figure  44(g),  after  3752  cycles 
(the  last  cycle),  substantial  crack  propagation  had  occurred.  A  plot 
of  Crack  Length  vs  Cycles  for  LCF  Specimen  7  is  shown  in  Figure  45. 

When  the  crack  length  is  extrapolated  to  zero  length,  the  x-ordinate  is 
intercepted  at  approximately  1500  cycles.  The  transition  to  rapid  crack 
growth,  N^',  occurred  at  approximately  3400  cycles. 


jfaitggas^gjjjjgwj  «,ii  — n  tutibi 


Figure  44  (continued) 
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A  composite  of  the  photomicrographs  of  the  surface  replicas  for 
LCF  Specimen  8  is  contained  in  Figure  46.  In  this  specimen,  three 
separate  cracks  form.  Figure  46(a),  taken  after  500  cycles,  shows  the 
development  of  slip  lines  but  no  cracks  are  apparent.  In  Figure  46(b), 
after  1000  cycles,  there  is  a  persistent  slip  band  evident  in  the  upper 
right-hand  portion  of  the  collage  which  eventually  becomes  the  upper 
crack.  In  Figure  46(c),  after  1500  cycles,  the  V-shaped  beginning  of 
the  middle  crack  is  apparent.  At  2000  cycles,  Figure  46(d),  the  lower 
crack  is  evident  as  is  a  portion  of  the  upper  crack.  Unfortunately,  the 
middle  rr-.v  is  obscured  by  artifacts  in  the  replica.  In  Figure  46(e), 
after  2500  cycles,  all  three  cracks  are  clearly  visible  and  several 
micr acracks  at  either  end  of  the  middle  crack  are  visible.  By  3000 
cycles,  shown  in  Figure  46(f),  the  microcracks  of  the  middle  crack  have 
linked  up.  Further  crack  extension  by  3500  cycles,  Figure  46(g),  is 
readily  apparent.  A  plot  of  Crack  Lengths  vs  Cycles  for  LCF  Specimen  8 
is  contained  in  Figure  47.  The  crack  lengths  plotted  are  the  sum  of 
the  individual  lengths.  Since  the  measured  crack  lengths  entailed  some 
judgment,  the  scatter  is  not  unreasonable.  At  the  early  cycles,  it  is 
especially  difficult  to  ascertain  if  a  crack  exists  and  to  measure  its 
extent.  Extrapolating  the  data  back  to  zero  crack  length,  it  appears 
that  crack  initiation  occurred  at  approximately  1300  cycles. 

If  the  Stress  Range  vs  Cycles  plot  for  Specimens  7  and  8,  contained 
in  Figures  32  and  33,  are  closely  examined,  the.  asymmetric  stress  drop¬ 
off  for  LCF  Specimen  7  occurs  at  about  1500  cycles  and  at  about  1300 
cycles  for  Specimen  8.  These  cycles  correlate  reasonably  well  with 
those  determined  from  the  crack  length  measurements.  Therefore,  the 
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asymmetric  load  drop-off  Is  used  in  the  remainder  of  this  dissertation 
as  evidence  that  a  definite  crack  exists.  In  Table  9,  is  thus  a 
measure  of  the  crack  initiation  cycle.  Furthermore,  a  damage  level  of 
800  cycles  was  selected  for  rejuvenation  efforts  since  it  seemed  well 
below  the  actual  crack  initiation  point. 

The  slope  of  the  lines  in  Figures  45  and  47  yields  a  crack  growth 

-4 

rate,  da/dN,  of  0.27  ym/cycle  or  1.07  *  10  in. /cycle.  Macha  has 

determined  crack  growth  rates  as  a  function  of  AK  at  400°F  and  600°F 

(62).  At  400°F  he  found  that: 

da  -929 

=  0.15  x  10  (AK)  (14) 

dN 

where  da/dN  is  crack  growth  rate  in  in. /cycle,  and  AK  is  stress  intensity 
range  in  ksi  /in.  .  At  600°F,  he  found: 

“  =  0.10  x  lef9  (AK)3,2  (15) 

dN 

Since  these  expressions  have  the  form: 

~  =  C  (AK)1"  (16) 

C  and  m  can  be  estimated  to  be  0,125  and  3.05,  respectively,  at  500°F, 
by  simple  averaging.  Thus,  at  500°F  it  is  estimated  that: 

~  =  0.125  x  ](T9  (AK)-5,05  (17) 

By  finding  AK  for  a  fatigue  crack  in  the  LCF  test  specimen,  Equation  17 
can  be  used  to  verify  the  replication-derived  crack  growth  rate.  Irwin's 
methodology  for  a  semi-elliptical  crack,  correcting  for  the  plane  strain 
plastic  zone  in  a  finite  body,  was  used  (63).  It  is  only  an  approxima¬ 
tion  for  the  geometry  of  the  LCF  specimen.  The  details  of  the  calcula¬ 


tion  are  presented  in  Table  11.  The  computed  value  of 
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TABLE  11 

CALCULATION  OF  CRACK  GROWTH  RATE  FROM  FRACTURE  MECHANICS 


Assumptions : 


1.  Initial  flaw  size,  2c,  of  0.118  in. 
(3000  pm) 

2.  Crack  aspect  ratio,  a/2c,  of  0.30 

3.  Stress  range,  A a,  of  190  ksi 

4.  Ratio  omax/oys>  of  0.75 

5.  da/dN  =  0.125  *  10~9  (AK)3-05 


Calculation:  Irwin's  equation  of  interest  is 


KI  = 


.  1  a  A~a 


-  r"  -  m 
0 


2  2  \ 

where  Q  =  J  [1  -  (-c--0-a~  )  si’  ?  ] d <h 


Using  the  above  assumptions,  Q  =  1.4.  Thus  AK  =  107.5  ksi  /in. 
From  Assumption  5, 

35  '  5 
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da/dN  =  1.96  x  10  In, /cycle  agrees  reasonably  well  with  the  measured 
value . 

Higher  magnification  photographs  of  the  replicas  taken  for 
Specimens  7  and  8  revealed  evidence  of  a  concentrated  deformation 
zone  along  grain  boundaries.  But  since  these  specimens  were  not 
lightly  etched  prior  to  testing,  these  observations  were  inconclusive. 

ii.  Surface  Scanning  Electron  Microscopy 

The  above  replication  procedure  was  invaluable  for  finding  cracks 
during  a  fatigue  test,  but  it  was  not  suitable  for  defining  the  crack 
initiation  mechanisms  for  the  following  reasons:  (1)  The  sharp  radius 
of  curvature  of  the  LCF  specimen  made  the  replication  process  extremely 
difficult  to  accomplish  without  producing  artifacts  in  the  replica;  and 
(2)  A  cycle  of  cooling  the  specimen,  replicating  it,  and  reheating  the 
specimen  for  further  testing  took  3-4  hours  with  the  consequence  that  a 
great  deal  of  time  was  consumed  in  the  testing. 

With  these  difficulties  in  mind,  several  different  approaches 
were  taken  to  better  determine  the  crack  initiation  mechanism:  (1)  A 
LCF  specimen  was  lightly  etched  prior  to  testing  and  a  search  was  made 
for  offsets  in  the  longitudinal  polishing  scratches  at  grain  boundaries 
(2)  A  LCF  specimen  had  two  parallel  flats  machined  longitudinally  and 
the  specimen  was  electropol ished  (one  flat  was  lightly  etched),  and 
after  1800  cycles  of  testing  at  500°F  at  a  strain  range  of  0.75%,  the 
flats  were  examined  in  the  SF.M;  (3)  A  specimen  was  tested  at  room 
temperature  and  replicated  every  300  cycles  until  the  asymmetric  load 
drop-off  occurred  and  a  definite  microcrack  could  bo  seen;  (4)  A 
specimen,  after  complete  testing,  was  placed  directly  in  the  SFM  for 
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surface  observation;  (5)  The  gauge  section  of  a  specimen  was  examined 
in  the  SEM  after  800  cycles  of  testing;  and  (6)  A  longitudinal  section 
of  a  gauge  section  was  made  of  a  specimen  tested  to  2103  cycles.  The 
results  of  these  mctallographic.nl  investigations  are  detailed  below, 
and  a  proposed  mechanism  for  crack  initiation  at  500°F  at  Aet  =  0.75% 
is  presented. 

LCF  Specimen  42  was  lightly  etched  after  polishing  through  4/0 
emergy  paper.  After  testing  was  completed,  the  gauge  section  was  placed 
in  the  SEM.  Using  the  straight  polishing  scratches  as  fiduciary  marks, 
offsets  of  them  along  grain  boundaries  were  observed.  Figure  48(a)  and 

(b)  show  typical  offsets  at  grain  boundaries.  There  is  an  apparent 
curvature  of  the  scratches  in  the  vicinity  of  the  grain  boundary 
indicating  the  existence  of  a  band  of  deformation  along  the  boundary. 
Also,  the  offsets  along  a  boundary  are  not  uniform.  The  formation  of 
grain  boundary  ledges  was  not  readily  apparent,  but  this  experimental 
technique  may  not  have  been  sensitive  enough  to  detect  them.  Figure  48 

(c)  shows  offsets  along  a  persistent  slip  band.  Note  that  the  polishing 
scratches  which  pass  through  a  persistent  slip  band  are  relatively 
straight  right  up  to  the  band,  and  that  the  offsets  along  the  length  of 
the  band  arc  reasonably  uniform. 

LCF  Specimen  F2  had  two  flats  machined  which  were  mechanically 
polished  and  then  electropol ished .  One  flat  was  lightly  etched  before 
testing.  The  stabilized  stress  range  was  190.5  ksi,  at  total  strain 
range  of  0.75%.  Crack  initiation,  as  determined  by  the  asymmetric 
load  drop-off,  occurred  at  875  cycles.  The  fatigue  test  was  halted  at 
1800  cycles  and  the  flat  surfaces  examined  in  the  SEM.  Figure  49  shows 
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cracks  leading  away  from  a  large  carbide  inclusion.  Figure  50  graphi¬ 
cally  shows  slip  lines  and  cracks  associated  with  two  blocky  carbides. 
The  slip  lines  are  at  nearly  a  45°  angle  with  respect  to  the  longi¬ 
tudinal  stress  axis. 

LCF  Specimen  36  was  tested  at  room  temperature  after  light  etching 
The  stress  range,  after  500  cycles,  constantly  decreased  at  the  rate  of 
3.2  psi/cycle.  The  stabilized  stress  range  was  222  ksi  at  a  total 
strain  range  of  0.73%.  The  test  was  stopped  at  3900  cycles  and  the 
specimen  broken  in  liquid  nitrogen  for  f ractographic  examination. 

Figure  51  is  a  100*  view  of  a  replica  of  a  typical  area  after  3900 
cycles.  The  slip  lines  within  each  grain  are  clearly  evident.  As  the 
test  progressed,  there  appeared  to  be  a  gradual  thickening  of  the  grain 
boundary  regions.  Using  the  longitudinal  polishing  scratches  as 
fiduciary  marks,  higher  magnification  definitely  revealed  offsets  along 
the  grain  boundaries.  Figure  52  shows  a  typical  crack  which  apparently 
initiated  at  a  grain  boundary  carbide.  On  the  fractograph,  it  was 
difficult  to  differentiate  the  fatigue  initiated  fracture  from  the 
tensile  overload  fracture. 

LCF  Specimen  53,  which  was  electropol ished  before  testing,  was 
placed  directly  in  the  SEM  after  testing  at  500°F.  Table  9  has  a 
summary  of  its  properties.  Figure  53  shows  a  portion  of  the  main  crack 
Note  the  grain  which  pulled  out  in  the  center  of  the  photograph.  This 
crack  follows  a  combined  transgranular  and  intergranular  path  on  the 
surface.  Figure  54  shows  fatigue  striations  in  an  intergranular  crack 
region  which  are  obvious  from  looking  in  from  the  surface.  Figure  55 


117 


* 


5)' 


Jk. 


1  19 


shows  surface  cracking  which  occurred  at  some  distance  from  the  main 
crack.  The  crack  associated  with  the  carbide  is  normal  to  the  loading 
direction. 

LCF  Specimen  38  was  removed  from  the  Instron  after  800  cycles  at 
500°F  at  a  total  strain  range  of  0.77%,  It  was  lightly  etched  before 
testing.  Figure  56(a)  shows  the  general  microstructure  as  viewed  in 
the  SF,M.  Figure  56(b)  is  a  high  magnification  view  of  the  slip  line  in 
the  center  of  Figure  56(a).  At  this  magnification,  the  slip  line  is 
seen  to  be  an  extrusion  band.  These  extrusions  were  also  commonly  seen 
on  other  fatigue  specimens  examined  in  the  SUM  with  greater  than  800 
cycles  of  damage.  Figure  57(a)  shows  a  bloeky  carbide  in  a  grain 
boundary.  Figure  57(b)  shows  that  this  carbide  is  beginning  to  de~cohore. 
The  microst rue  turn  1  damage  observed  in  this  specimen  at  this  stage  of 
testing  occurred  well  before  the  asymmetric  load  drop-off  or  the 
initiation  of  microcracking. 

LCF  Specimen  39  was  tested  at  500°F  at  a  total  strain  range  of 
0,77%.  The  test  was  stopped  after  2103  cycles.  Crack  initiation, 
determined  by  the  asymmetric  load  drop  method  occurred  at  1300  cycles. 

The  specimen  was  sectioned  longitudinally,  lightly  etched,  gold  plated, 
and  examined  in  the  3EM.  Figure  58  shows  the  general  microst rue  turn  1 
appearance.  The  bloeky  carbide  stringers  and  the  grain  boundary  Laves 
phase  are  clearly  evident,  ns  are  the  small  spherical  precipitates. 

Figure  59(a)  shows  a  crack  along  >n  apparent  slip  plane  which  is  oriented 
60°  with  respect  to  the  applied  load.  Figure  59(1.-)  is  a  magnified  view 
of  the  edge  ol  the  crack.  Figure  59(c)  shows  a  crack  running,  from  the 
edge  along  a  grain  boundary  oriented  at  30°  with  respect  It'  the  applied 
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stress.  Note  that  as  predicted  by  Kim  and  Laird,  the  crack  is  not 
symmetric  with  respect  to  the  boundary,  but  propagates  primarily  in  one 
grain  (48).  These  cracks,  as  they  progressed  into  the  specimen, 
followed  a  path  either  along  another  slip  plane  in  a  grain  or  along 
a  grain  boundary,  but  not  deviating  by  more  than  15°  from  a  45°  angle 
with  respect  to  the  applied  stress.  Blocky  carbides  di  em  to 

be  associated  with  crack  propagation  into  the  thickness. 

iii.  Proposed  Mechanism 

At  500°F  and  within  the  total  strain  range  0.7-0, 8%,  this  material 
can  initiate  tracks  at  persistent  slip  bands  or  at  grain  boundaries, 
whichever  is  energetically  favorable.  Generally,  cracks  initiate  at 
blocky  carbide  inclusions  In  those  grain  boundaries  oriented  between 
30°  and  60°  with  respect  to  the  principle  tensile  direction.  The. 
combination  of  a  deformation  zone  along  a  grain  boundary,  as  evidenced 
by  the  offsets  of  polishing  scratches  across  the  boundaries,  and  the. 
tendency  to  develop  grain  boundary  steps,  as  developed  by  Kim  and  Laird 
(47,48),  results  in  large  compatibility  strains  between  the  carbide  arid 
the  grains  which  arc  relieved  by  the  decohering  of  the  carbide.  This 
marks  the  start  of  Stage  T  propagation  and  is  noted  by  the  start  of  the 
asymmetric  load  drop-off.  Once  the  crack  begins  to  propagate  along  a 
grain  boundary  away  from  the  carbide,  it  either  continues  growing  along 
the  boundary  both  on  the  surface  and  into  the  material,  or  it  turns  and 
begins  to  propagate  along  a  favorably  oriented  persistent  slip  band  which 
had  already  formed  a  crack  embryo  in  the  form  of  instrusf ons/extrusions. 
Since  the  strain  range  is  fairly  high,  these  nucleatlon  events  occur 


at  multiple  locations. 


Once  these  cracks  begin  lo  link  up,  the  crack 
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grows  more  rapidly,  leading  to  a  mueli  larger  decrease  in  stress  drop-off 
per  cycle.  The  point  at  which  this  happens  corresponds  to  NJ  in 
Table  9. 

Thus,  the  carbides  play  a  key  role  in  the  crack  initiation  process, 
but  are  not  as  important  during  crack  propagation.  Stage  I  cracking 
generally  ends  when  the  crack  readies  the  end  of  a  grain  or  a  grain  bound¬ 
ary  triple  point  in  terms  of  through  the  thickness  of  the  crack  dimension. 

The  material  is  ductile  enough  so  that  Stage  II  cracking  leads  to 
the  formation  of  fatigue  striations.  It  is  not  surprising  that  the 
fracture  surface  shows  both  intergranular  and  transgranular  cracking. 

It  is  clear  that  after  800  cycles,  well  before  the  start  of 
Stage  T  crack  growth,  substantial  microstructural  damage  in  the  form 
of  partially  de-cche red  carbides  and  persistent  slip  bands  already 
exists.  This  information  is  crucial  in  evaluating  the  effects  of  the 
rejuvenation  treatments. 

IV.  REJUVENATION  EFFECTS 
A.  Results  of  HIP  Treatments 
i.  Presentation  of  Data 

The  results  of  the  11  specimens,  pre-damaged  in  1  CF  to  a  given 
number  of  cycles,  hot  isostatically  pressed  and  heat  treated,  and  then 
retested  to  failure,  arc  sum:;;. ar  imed  in  Tab  I  e  12.  The  pints  o'  si  r.  ss 
range  vs  cycles  are  contained  in  Figures  00-70.  Specimen  1  (>  w.-  •  <  ■  1 . . i u •  - 
leal  ly  polished  and  eleetro-pol  ished  thr.e  tines  ho!  ore  litis:  in,. 

It  is  apparent  from  this  data,  in  comparison  with  the  be.  iirn 


data  of  Table  9,  that  no  rejuvenation  hv  HIT  or.-uri  ml.  The  ceramic 
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coated  and  the  uncoated  specimens  performed  about  the  same;  although 
Specimen  20,  which  was  coated,  performed  the  best.  On  the  basis  of 
total  life,  these  HIP  specimens  were  clearly  inferior  to  the  baseline 
specimens.  Specimens  25  and  29,  which  were  HIP'd  without  prior  damage, 
failed  within  the  range  of  about  1600-1700  cycles.  The  remaining  HIP'd 
specimens  with  different  levels  of  pre-HIP  damage  also  failed  within 
this  range  of  cycles  after  retesting  commenced,  regardless  of  the  level 
of  pre-HIP  damage.  This  includes  two  specimens  which  were  predamaged  to 
2100  cycles;  crack  initiation  had  already  occurred  in  these  specimens 
prior  to  the  HIP  treatment.  This  is  strong  evidence  that  the  HIP 
processing  itself  adversely  damaged  the  microstructure  at  the  surface 
of  the  material. 

Those  specimens  which  were  to  be  ceramic  coated  were  first  vapor 
honed  to  provide  a  suitable  surface  for  the  coating  to  adhere  to,  The 
effect  of  the  vapor  honed  surface  on  the  LCF  properties  was  investigated. 
Figure  71  shows  a  SEM  photomicrograph  of  the  as-vapor-honed  surface. 

The  surface  is  fairly  rumpled  and  some  inclusions  appear  to  have  already 
decohered  from  the  microstructure.  The  gauge  section  of  two  vapor-honed 
specimens  was  repolished  and  then  tested  at  500°F.  The  Stress  Range  vs 
Cycles  for  these  specimens.  Specimens  27  and  28,  are  shown  in  Figures  72 
and  73.  Table  13  is  a  summary  of  the  LCF  data.  It  is  clear  that  vapor 
honing,  even  after  repolishing,  was  deleterious  to  the  fatigue  life. 
During  repolishing,  the  diameter  was  reduced  from  0.118  in.  to  about 
0,116  in,,  or  by  25  y  (about  one-fifth  of  a  grain  diameter)  along  the 
specimen  radius.  Specimen  28,  after  testing,  was  placed  in  the  SEM, 

In  addition  to  the  main  crack,  extensive  cracking  along  the  gage 
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Stress  Range  vs  Cycles  -  LCF  Specimen 


73.  Plot  of  Stress  Range  vs  Cycles  -  LCF  Specimen  28 
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length  was  observed.  Typical  examples  of  secondary  cracks  are  shown  in 
Figures  74,  75,  and  76,  All  three  of  these  cracks  sec.'  to  be  associated 
with  Inclusions  which  have  decohered,  cracked,  or  failt!  out. 

There  was  a  reaction  between  the  ceramic  coating  and  the  base 
material  during  HIPing.  Figure  77  shows  a  typical  reaction  zone  from 
LCF  Specimen  20.  This  reaction  was  observed  in  the  shank  region, 
above  the  extensometer  flange.  It  is  assumed  a  similar  reaction 
occurred  in  the  gauge  section.  The  apparent  penetration  depth  of  the 
reaction  zone  was  at  least  5  y.  This  zone  should  have  been  removed 
during  the  polishing  operation  prior  to  retesting.  However,  the 
grain  boundaries  may  have  been  damaged  to  much  greater  penetration 
depths  by  alloy  depletion.  Greater  material  removal  than  that  accom¬ 
plished  by  repolishing  was  deemed  unwise  due  to  the  already  small 
specimen  diameter. 

Figure  78  shows  some  fractographs  taken  of  ceramic-coated  LCF 
Specimen  25,  The  fracture  appears  much  more  intergranular  in  nature 
than  for  the  baseline  specimens. 

Crack  growth  rate  in  another  ceramic-coated  specimen,  LCF  Specimen 
21,  was  also  measured  by  the  surface  replication  technique.  Photo¬ 
micrographs  of  the  replicas  are  shown  in  Figure  79.  The  plot  of  Crack 
Length  vs  Cycles  is  contained  in  Figure  80.  Extrapolation  of  the  crack 
length  to  zero  shows  that  initiation  occurred  between  1100  and  1200 
cycles.  This  agrees  with  the  asymmetric  load  drop-off  point,  N^,  in 
Table  12  of  1150  cycles.  Note  that  the  slope  of  this  curve  is  about 
1,5  ym/cycle.  This  is  5.5  times  the  slope  of  the  two  baseline  specimens 
plo  tted  in  Figures  45  and  47,  Thus,  the  crack  growth  rate  was  greatly 
accelerated  in  the  HIP  rejuvenated  specimen. 


a.  General  Crack 


b.  Higher  Magnification  View  of  Crack 


Micrograph,  Secondary  Cracking  -  I,CF  Specimen  28 


Figure  80.  Plot  of  Crack  Length 
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The  uncoated  specimens  were  badly  contaminated  after  HIP  processing. 
Figure  81  shows  the  reaction  zone  for  LCF  Specimen  26.  The  apparent  re¬ 
action  zone  is  5-10  p  in  depth.  After  HIP  processing,  alloy  depletion 
along  the  grain  boundaries  to  much  greater  depths  has  been  observed  in 
IN-713  (54).  Thus,  even  after  repolishing,  the  grain  boundaries  were 
still  substantially  weakened  compared  to  the  baseline.  Figure  82 
contains  SEM  photomicrographs  of  the  primary  crack  in  LCF  Specimen  16. 

This  crack  had  progressed  completely  around  the  circumference  of  the 
specimen.  No  baseline  specimen  had  a  complete  circumferential  crack, 
but  it  was  not  unusual  for  the  HIP  processed  specimens  (both  coated 
and  bare)  to  have  one.  Note  that  the  crack  in  Figure  82(a)  is  both 
intergranular  and  transgranular .  The  role  of  a  fractured  blocky 
carbide  in  promoting  cracking  is  graphically  shown  in  Figures  82(b)  and  (c)  . 
Cracking  throughout  the  gauge  length  was  extensive.  Figure  83  shows  a 
typical  intergranular  crack  located  at  some  distance  from  the  main 
crack.  The  fracture  appearance  for  the  uncoated  specimens  was  very 
similar  to  that  of  the  coated  specimens. 

HIP  processing  increased  the  material  grain  size  from  120  pm  to 
150  pm.  It  is  known  that  LCF  life  is  usually  sensitive  to  grain  size. 
Merrick  found  an  inverse  relationship  between  grain  size  and  fracture 
life  for  two  different  grain  sizes  at  room  temperature  and  at  1000°F  (16). 
Handbook  data  at  room  temperature  for  three  grain  sizes  also  shows  an 
inverse  relationship  with  fracture  life  for  stress-controlled  tests  (43). 
When  this  data  is  plotted,  it  is  apparent  that  the  relationship  follows 
a  Hall-Petch  dependency: 

Nf  «  - - -  (18) 
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where  Is  the  cycles  to  failure,  and  g.s.  is  the  grain  size.  Thus, 
the  effect  of  increased  grain  size  from  the  rejuvenation  processing  on 
the  cycles  to  failure  can  be  estimated: 
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Using  Equation  18,  a  decrease  in  cycles  to  failure  of  12%  can  be  estimated 
to  be  due  to  the  grain  size  changes  alone. 


iii.  Mechanisms 

Considering  the  data  presented  in  Tables  12  and  13,  the  fatigue 
behavior  for  the  HIP'd  specimens  (both  coated  and  uncoated)  and  the 
vapor-honed  specimens  is  similar.  But  the  mechanisms  of  crack  nucleation 
and  growth  are  most  likely  not  the  same.  Recall  that  the  previous 
section  demonstrated  that  the  critical  step  for  crack  initiation  in  the 
baseline  specimens  was  the  decohering  of  a  grain  boundary  carbide. 
Clearly,  vapor  honing,  even  with  repolishing,  can  decohere  or  fracture 
carbides.  This  not  only  would  greatly  shcrten  the  initiation  time,  but 
would  provide  many  crack  initiation  sites.  Thus,  once  crack  growth 
began,  it  would  progress  very  rapidly  due  to  microcrack  linkup.  This 
is  what  was  observed  for  the  vapor-honed  specimens, 

The  ceramic  coating  reacts  with  the  matrix  during  HIP  processing. 
Even  though  optical  microscopy  showed  that  the  reaction  depth  was  such 
that  it  should  be  removed  by  repolishing,  localized  contamination  along 
the  grain  boundaries  and  existing  persistent  slip  bands  can  be  sub¬ 


stantially  greater.  This  would  promote  the  early  intergranular 
failure  as  was  observed,  This  investigation  is  inconclusive,  however, 
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in  differentiating  between  the  damage  due  to  vapor  honing  and  the  damage 
due  to  contamination  by  the  ceramic  coating. 

The  uncoated  specimens  had  contaminated  grain  boundaries  which 
were  relatively  weak.  Thus,  the  carbides  readily  decohered  and  crack 
propagation  was  fairly  rapid. 

B.  Results  of  Thermal  Treatments 
i.  Presentation  of  Data 

The  results  of  seven  thermally  rejuvenated  specimens  are  contained 
in  Table  14.  A  comparison  of  this  data  with  the  baseline  data  (Table  9) 
and  the  HIP  rejuvenated  data  (Table  12)  reveals  that  some  rejuvenation  defi¬ 
nitely  occurred  as  a  result  of  the  thermal  treatment.  The  plots  of  Stress 
Range  vs  Cycles  are  contained  in  Figures  84-90.  Note  that  LCF  Specimen  13 
was  heat  treated  in  a  poor  vacuum  and,  as  a  result,  the  surface  was  badly  ' 
oxidized.  It  was  tested  without  repolishing.  The  remaining  specimens, 
except  for  LCF  Specimen  54,  were  all  repolished  after  thermal  treatment. 

An  investigation  was  made  to  determine  the  effect  of  repolishing 
alone  on  enhancing  the  fatigue  properties.  A  summary  of  the  data  is 
contained  in  Table  15.  The  plots  of  Stress  Range  vs  Cycles  are 
shown  in  Figures  91  and  92.  These  data  are  essentially  no  different 
than  the  baseline  properties.  Also,  since  LCF  Specimen  54  was  not 
repolished  after  the  thermal  treatment  and  yet  was  clearly  rejuvenated, 
it  can  be  concluded  that  rcpolishing  alone  docs  not  recover  LCF  damage 
for  the  conditions  studied  In  this  investigation. 

Table  14  indicates  that  complete  recovery  of  LCF  damage  was  not 
accomplished.  But,  it  was  previously  shown  that  after  800  cycles, 
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Figure  85.  Plot  of  Stress  Range  vs  Cycles  -  LCF  Specimen 
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Figure  88.  Plot  of  Stress  Range  vs  Cy'" ’S  -  LCF  Specimen  43 


Stress  Range  vs  Cycles  -  LCF  Specimen  51 
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Figure  91.  Plot  of  Stress  Range  vs  Cycles  -  LCF  Speciraei 


Figure  92,  Plot  of  Stress  Range  vs  Cycles  *-  LCF  Specimen  40 
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blocky  carbides  in  the  grain  boundary  began  to  decohere  (Figure  51),  and 
extrusions  at  persistent  slip  bands  occurred  (Figure  50).  This  is  not 
the  type  of  damage  that  thermal  treatment  can  remove. 

SEM  photomicrographs  of  the  gauge  section  of  the  the: mally  rejuven¬ 
ated  specimens  after  revealed  extensive  cracking  and  decohering  of 
inclusions.  A  typical  example  is  shown  in  Fig.  93  from  LCF  Specimen  42. 

LCF  Specimen  31  was  damaged  in  LCF  at  500°F  at  a  total  strain 
range  of  0.75%  (stabilized  stress  range  was  191  ksi).  The  gauge 
section  was  cut  in  two.  Foils  were  made  from  one  half  for  TEM 
investigation.  The  other  half  was  given  the  thermal  rejuvenation 
treatment,  and  the  foils  were  prepared  for  TEM  investigation.  Figure  94 
shows  a  network  of  dislocations  beginning  to  form  after  800  cycles. 

Figure  95, after  the  thermal  treatment,  shows  that  most  of  the 
dislocations  have  been  annealed  out. 

The  previous  results  were  for  a  single  rejuvenation  treatment. 

In  an  attempt  to  determine  the  effect  of  multiple  rejuvenations, 

LCF  Specimen  41  was  subjected  to  multiple  blocks  of  803  cycl  of 
LCF  damage  plus  thermal  rejuvenation.  The  plot  of  Stress  Range  vs 
Cycles  is  contained  in  Figure  96.  Table  16  summarizes  the  LCF  data. 

Note  that  the  thermal  rejuvenation  treatments  seemed  to  have 
forestalled  the  onset  of  crack  initiation  as  determined  by  the 
asymmetric  load  dropoff,  but  once  the  dropoff  occurred,  the  crack 
progressed  very  rapidly.  The  surface  of  this  specimen  was  examined 
in  the  SEM  after  the  second  block  of  803  cycles  (i.e.,  after  1606  cycles) 
and  after  failure.  Figure  97  shows  photomicrographs  taken  after  1606 
cycles.  Figure  97(a)  shows  the  development  of  persistent  slip  bands 


a.  General  Appearance  of  Cracking 


Figure  91.  S I'M  Micrograph,  Cracking  at  inclusions  -  I.CF  Specimen  A 
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and  the  effect  of  polishing  a  group  of  carbides.  Figure  97(b)  shows  a 
blocky  grain  boundary  carbide  in  the  process  of  decohering.  Figure  97 
(c)  shows  a  grain  boundary  beginning  to  crack  or  form  a  ledge.  Figure 
98  are  photomicrographs  taken  after  failure.  Figure  98(a)  shows  exten¬ 
sive  deformation  and  cracking  in  a  region  near  the  principle  crack. 

Figure  98(b)  is  a  typical  area  located  at  some  distance  from  the  main 
crack.  The  grain  boundary  cracking  and  persistent  slip  bands  are 
readily  apparent.  Note  that  the  total  life  for  LCF  Specimen  41  was 
the  same  as  could  be  expected  for  a  baseline  specimen.  Thus,  no 
overall  rejuvenation  was  accomplished  although  the  onset  of  gross 
microcracking  may  have  been  significantly  retarded. 

ii .  Mechanisms 

The  rejuvenation  effect  of  the  thermal  treatment  was  primarily  due 
to  the  recovery  of  dislocations  in  the  persistent  slip  bands  and  the 
deformation  zone  along  the  grain  boundary.  The  fact  that  dislocation 
recovery  can  occur  at  elevated  temperatures  is  well  established,  and 
several  mechanisms  have  been  postulated  (55,56,57).  Thus,  after 
thermal  rejuvenation  and  during  subsequent  testing,  the  planar  disloca¬ 
tion  arrays  must  re-form  the  persistent  slip  bands  and  the  deformation 
zone  along  the  grain  boundary  must  be  re-established.  Also,  the  y*  pre¬ 
cipitates  which  were  sheared  and  possibly  disordered  are  restored  to  their 
original  distribution  and  morphology  (65).  The  result  is  that  the 
processes  which  lead  to  the  decohering  of  the  blocky  grain  boundary 
carbides  are  retarded.  However,  the  decohering  itself  is  not  repaired 
by  thermal  treatment.  Nor  are  the  voids  healed  on  the  interior 
of  a  persistent  slip  band  which  developed  intrusions  and  extrusions. 
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Also,  the  rejuvenation  process  acts  to  disperse  slip  throughout  the 
gauge  section,  leading  to  a  greater  number  of  decohering  carbides. 

Thus,  when  microcracks  begin  to  propagate,  they  readily  link  up,  leading 
to  an  accelerated  crack  growth  rate.  If  the  grain  boundaries  are 
simultaneously  weakened  during  the  thermal  rejuvenation  processing, 
such  as  by  contamination  from  a  poor  vacuum,  crack  growth  is  accelerated 
even  more. 

C.  Conclusions 

Table  17  summarizes  the  cycles  to  crack  initiation  as  a  function 
of  the  processing,  and  Table  18  similarly  summarizes  the  cycles  to 
failure.  It  is  evident  that  the  data  for  the  repolishing  treatment 
alone  belongs  to  the  same  population  as  the  baseline  data.  The  vapor- 
honed  plus  repolished  data  indicates  crack  initiation  at  about  400  cycles 
earlier  than  the  baseline  data,  and  less  than  half  the  total  lifetime  to 
failure.  The  HIP  samples  did  not  show  any  rejuvenation  of  LCF  properties. 
The  uncoated  HIP  specimens  performed  slightly  worse  than  the  coated  HIP 
specimens.  Crack  initiation  for  the  HIP  samples  (with  800  cycles  of 
pre-HIP  damage)  occurred  at  about  the  same  point  as  for  the  baseline 
specimens.  But  failure  occurred  1300-1500  cycles  earlier  than  the 
baseline  data.  Also,  the  data  indicates  that  failure  occurred  within 
about  1600  cycles  after  HIP  processing  regardless  of  the  level  of 
Initial  damage  (Table  12) .  The  conclusion  is  that  vapor  honing  and  HIP 
processing  damaged  the  surface  of  the  test  specimens.  Vapor  honing  caused 
fracturing  and  decohering  of  blocky  grain  boundary  carbides.  Ceramic- 
coated  plus  HIP  specimens  not  only  had  the  deleterious  effects  of  the 
vapor-honing  induced  damage,  but  also  contamination  due  to  reaction 


TABLE  18 


between  the  ceramic  coating  and  the  superalloy.  The  uncoated  HIP 
specimens  were  badly  contaminated  from  impure  argon  in  the  HIP  unit. 

The  thermally  rejuvenated  specimens  definitely  showed  some 
rejuvenation.  Those  specimens  damaged  to  800  cycles  before  rejuvenation 
increased  their  initiation  time  by  about  450  cycles  and  their  total 
lifetime  by  about  630  cycles  on  the  average  (but  note  the  high  standard 
deviation  in  Table  18) ,  The  specimen  predamaged  400  cycles  before 
rejuvenation  increased  its  initiation  time  by  400  cycles,  but  no 
increase  in  total  lifetime  was  obtained.  The  experience  with  multiple 
rejuvenation  (Table  16)  indicates  that  damage  accumulation  in  the  form 
of  decohering  carbides,  which  are  not  affected  by  thermal  treatments, 
leads  to  eventual  very  rapid  crack  extensions. 


Chapter  4 


SUMMARY 


The  mechanisms  of  crack  initiation  and  growth  in  strain-controlled 
low  cycle  fatigue  (LCF)  damage  were  determined  for  the  iron-nickel 
superalloy,  Incoloy  901.  Testing  was  done  in  air  at  a  temperature  of 
500°F  (260°C)  and  total  strain  range  of  0.75%.  The  effect  of  hot 
isostatic  pressing  (HIP)  and  thermal  treatment  in  reducing  LCF  damage 
was  investigated. 

The  LCF  specimens  were  manufactured  using  a  low  stress  grinding 
method  to  maintain  surface  quality.  Specimens  were  hand  polished 
along  the  axial  direction  through  4/0  emery  paper.  Prior  to  testing, 
all  specimens  were  given  a  standard  solution  treatment  and  double  age, 
referred  to  as  STA  3A  (Table  4) ,  to  insure  the  uniform  precipitate  mor¬ 
phology  and  distribution  from  specimen  to  specimen.  The  as-received 
grain  size  was  90  ym.  After  STA  3A,  the  grain  size  was  increased  to 
120  ym,  but  remained  stable  after  subsequent  heating  to  the  solutioning 
temperature.  The  0.2%  offset  yield  stress  at  500°F  was  122  ksi. 

Initial  LCF  testing  was  conducted  over  the  total  strain  range  of 
0.70%  to  2.44%.  The  Cyclic  Stress-Strain  Curve  (Figure  24)  exhibited 
cyclic  hardening  at  the  high  strain  ranges  and  cyclic  softening  at  the 
lower  ranges.  A  log-log  plot  of  Total  Strain  Range  vs  Cycles  (Figure  26) 
exhibits  a  linear  curve  with  a  negative  slope. 


Crack  initiation  in  the  baseline  specimens  was  due  to  the 
decohering  of  blocky  grain  boundary  carbides.  Pre-crack  initiation 
damage  consisted  of  planar  dislocation  arrays  forming  persistent  slip 
bands  and  an  intense  deformation  region  adjacent  to  favorably  oriented 
grain  boundaries.  The  persistent  slip  bands  formed  intrusions  and 
extrusions  at  a  total  strain  range  of  0,75%  by  800  cycles  (about 
60%  of  crack  initiation  time).  Stage  I  crack  propagation  occurred 
along  the  grain  boundary  or  along  a  favorably  oriented  persistent 
slip  band.  Substantial  Stage  II  crack  propagation  occurred,  as  evidenced 
by  the  formation  of  fatigue  striations.  Fractography  revealed  a  mixed 
fracture  mode,  consisting  of  both  intergranular  and  transgranular 
fracture. 

The  HIP-processed  specimens  were  subjected  to  a  HIP  cycle  of 
2025^  for  one  hour  and  1975°F  for  two  hours  at  15  ksi  of  argon  (Figures 
10  and  11).  Both  uncoated  and  ceramic-coated  specimens  were  HIP'd. 
Specimens  had  pre-HIP  LCF  damage  of  0  cycles,  800  cycles,  and  2100  cycles. 
The  HIP  processing  increased  the  grain  size  by  25%.  The  specimens  were 
subjected  to  STA  3A  to  restore  the  original  morphology  and  distribution 
of  the  precipitates.  No  rejuvenation  occurred.  In  fact,  the  fatigue 
properties  were  worse  than  the  baseline  properties  by  a  substantial 
amount.  Even  correcting  for  the  grain  size  change  utilizing  a  Hall- 
Petch-type  equation,  it  is  clear  that  the  HIP  processing  itself  produced 
surface-related  damage  in  the  microstructure.  In  fact,  the  HIP  processing 
caused  more  damage  than  the  LCF  pre-HIP  damage  levels. 

In  the  case,  of  the  ceramic-coated  specimens,  damage  resulted  from  at 
least  two  sources;  (1)  vapor  honing  the  specimen  surface  to  provide 
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a  matte  finish  for  the  coating  to  adhere  to,  damaged  the  blocky  carbides 
by  decohering  and  cracking  them;  and  (2)  the  ceramic  coating  reacted  with 
the  superalloy.  As  a  consequence,  intergranular  cracking  was  promoted, 
and  crack  growth  rates  were  greater  than  five  times  the  rate  in  the 
baseline  specimens. 

The  uncoated  HIP  specimens  were  damaged  by  contamination  from 
the  HIP  atmosphere.  Preferential  formation  of  oxides  and  nitrides 
along  the  grain  boundaries  led  to  weakening  of  the  boundaries.  This 
promoted  intergranular  cracking,  accelerated  crack  growth  rates,  and 
early  failures.  Overall,  there  was  not  much  apparent  difference 
between  the  behavior  of  the  coated  and  uncoated  specimens,  although 
the  coated  ones  were  slightly  superior. 

Figure  99  plots  the  rejuvenation  data  and  the  trend  line  for  the 
baseline  data  on  a  log- log  plot  of  Total  Strain  Range  vs  Cycles  to 
failure. 

The  thermally  rejuvenated  specimens  were  given  STA  3A  after 
800  cycles  of  damage.  As  long  as  the  heat  treating  was  done  in  a 
good  vacuum  so  that  surface  contamination  did  not  occur,  partial 
rejuvenation  was  accomplished.  Initiation  life  was  increased  by 
400  cycles  and  the  failure  cycle  was  increased  by  600  cycles. 

Complete  rejuvenation  was  not  attained  because  the  grain  boundary 
carbides  had  already  begun  to  decohere  after  800  cycles  and  persistent 
slip  bands  had  formed  intrusions  and  extrusions.  When  a  specimen  was 
rejuvenated  three  times  after  blocks  of  803  cycles  of  damage,  it 
failed  catastrophically  due  to  rapid  crack  extension,  Thus,  the 
unrecovcred  microstructural  damage  can  adversely  affect  the  fatigue 


life. 


Strain  Range  vs  Cycles  to  Failure  with  Baseline  Trend  Line  and  Rejuvenation 
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* 


0006 

LOW  CYCLE  FATIGUE 

00A8 

0"  .'(! 

IMITCY  ENT 

e?AG 

e350 

APP 

00  AD 

9  AC  3 

STA 

XBPT  OP.  XA 

00AE 

F94  7 

fkov 

FI,  CMPTBL 

e«IAF 

045E 

«>3B0 

f  5?  A 

0031 

F947 

FMOV 

F2, CMPT8L+2 

.♦  j: 

007  0 

fltllS/ 

0S3C 

0034 

F94  1 

FADD 

F  I,  F2,  F3 

00B5 

04SE 

Z  0E6 

007  0 

30B7 

ee-CA 

00B3 

F947 

2 

O 

< 

F3,  CM  PTBL+4 

00B9 

P0CA 

00BA 

058E 

00BB 

DABC 

IMS 

DATPX  PRINT  FIRST  CYCLE 

00BC 

F7  1  1 

RTN 

INITCY 

* 

* 


00BD 

0000 

* 

INDEX  1 

DATA 

0 

00EE 

000-e 

HLIMIT 

PES 

2,0 

00C0 

C000 

LLIMIT 

P.E3 

2,  0 

00C2 

0000 

CUHSTP 

BAC 

STANUM+9 

0ec3 

00D9 

rNDM 

DATA 

•  Y  • 

G0C4 

0000 

niMi 

PES 

2,0  CUT-OFF  CYCLE  1  IN 

00C6 

0000 

FMM  2 

PES 

2,0  INCREMENT  TOO 

00C8 

0000 

FNM3 

PES 

2,0  LAST  CYCLE 

08CA 

0e00 

F3 

PES 

2,0 

00CC 

CSCE 

MMMESS 

TEXT 

•DJTEP  NM  l,NM2,NM3s  •• 

0ecD 

D4C5 

00CE 

D2A0 

00CF 

CECD 

00D0 

B 1  AC 

* 

00D] 

CECD 

00D2 

B2AC 

00D3 

CECD 

00D4 

B3BA 

00D5 

C0A0 

PAGE 

0007 

LOW 

CYCLE  FATIGUE 

0151 

* 

0152 

****** 

P.ESTAP.T  SECTIOM  ****** 

ei53 

* 

0154 

00D6 

F93D 

P.E5TPT 

STOP 

0155 

0PD7 

E29D 

LDA 

PMDFLG 

RANDOM  LIMITS 

0156 

00D3 

2  1  14 

JA2 

PSTEX 

NO 

0157 

00D9 

F9PF 

CPLF 

0158 

00DA 

F9  09 

TYPE 

PESETM 

RESET  RANDOM  SEOUEMI 

00DB 

053  1 

0159 

00DC 

F9  08 

IKB 

0160 

CCDD 

0C43 

TAX 

0161 

00DE 

CPAC 

CAI 

',  ' 

DO  THE  SAME  AS  LAST 

0162 

PCDF 

F2?E 

JMP 

SAME2 

YES 

0163 

00E0 

EE  ID 

STX 

PM  DM 

0164 

C2E1 

CPCE 

RESET  1 

CAT 

*  M  • 

RESET  SEQUENCE? 

0165 

00E2 

F202 

JMP 

PSTPT0 

MO 

0166 

0?E3 

C603 

LAP 

3 

YES 

0167 

00E4 

9B3F 

- 

3TA 

*FM 1PTR 

0168 

PPE5 

C  1  AC 

P.  ST  PTC 

CXI 

*  *  * 

SAHS  AS  LAST  TIME? 

0169 

0SE6 

F206 

JMP 

P.STEX 

YES  . 

0170 

0PE7 

F90B 

IKB 

INPUT  TERMINATION? 

0171 

00E3 

CPAC 

CAI 

0172 

P?E9 

F2P3 

JMP 

PSTEX  • 

0173 

CPEA 

F605 

JMP 

RSTF.T0 

NO,  KEEP  WAITING 

0174 

00EE 

S623 

SAKE2 

LDA 

m  DM 

0175 

0PSC 

F6PB 

JMP 

RESET  1 

0176 

* 

0177 

0CED 

F9  0F 

RSTEX 

CPLF 

0178 

00EE 

F9P9 

TYPE 

MP.ATE 

00EF 

0522 

0179 

00F0 

F93D 

IFLT 

SPRAT E 

00F  1 

C44  A 

- 

0130 

00F2 

F90F 

CPLF 

0181 

PPF3 

E27C 

LDX 

XABC 

0132 

00F4 

F944 

FDVD. 

SP.  RATE, 

*  STVALP,  CLKRT 

00F5 

044  A 

. 

00F6 

8  PB4 

0PF7 

P44C 

0133 

00F8 

F90F 

CFLF 

0184 

e?F9 

F9  13 

PATE 

CLKRT 

SET  TIME  VALUE 

PPF  A 

P44C 

0185 

PPFB 

E27  4 

LDX 

XABC 

FORCE  INDEX  IN  XA 

0186 

PPFC 

012? 

IXP 

0137 

0PFD 

F944 

FDVD 

*LDVALP, F AREA# STRESV 

PPFE 

SPA? 

00FF 

0442 

0100 

044E 

. 

0188 

0101 

F944 

FDVD 

STRSLM, 

STPESV, STPESS 

01P2 

0444 

0JP3 

044  E 

0104 

027  2 

0189 

P 105 

F945 

FIX 

STRESS, 

STRESS 

0106 

0272 

PAGE  0008 


LOW  CYCLE  FATIGUE 


0107  0272 

0190  01PS  F9 1 2  MODE  STROKE 

0109  0001 

0191  010A  F90F  CPLF 

0192  0je3  F909  TYPE  MEXEC  PRINT  EXECUTE 

010C  052D 

0193  010D  F90F  CPLF 

0194  01  PE  F9P9  TYPE  MHEAD 

0I0F  0553 

0J95  0110  F90F  CPLF 

0196  0111  F951  CLOS 

0J97  * 

0J98  01 12  0800  SETTBL  EMT 

0199  eil3  DA64  IMS  DATPX  PRINT  ALL  TRIGGER  CYCLES 

02C0  .  ..  *  STORE  CURRENT  CYCLE  -  END  OF  TEST? 

0201  0114  F947  FMOV  FCYCLEj.  FT CYC 

0J15  043 A 

0J16  013F  ' 

0202  0117  F948  FCMP  FNM3/F0  SEE  IF  DEFAULT 

0118  00C8 

0119  006E 

0203  01 1A  2104  JAZ  SETTB2 

0204  01  IB  F94S  FCMP  FTCYC,  FNM3  LAST  CYCLE? 

01 1 C  013F 
01  ID  07C3 

0205  01  IE  3P9  5  JAP  INCDNE 

0206  01  IF  825 1  SETT32  L DA  XBPT 

0207  0120  C 1 50  IAP. 

02e8  0121  C0P4  CAI  4 

0209  P 122  F202  JMP  INCT8L 

0210  0123  9 A4D  STA  XEPT 

0211  0124  F712  RTN  SETTBL 

0212  0125  0350  IMCTBL  ARP 

0213  0126  9  AAA  STA  XBPT 

0214  0127  FA19  IMCTB2  JST  CYADJ 

0215  0128  F947  FMOV  FTCYC*  CMPTEL 

0129  013F 

012A  05R  A 

e216  012B  F A 1 5  JST  CYADJ 

e217  0 I2C  F947  FMOV  FTCYC/ CMPTBL+2 

0.1 2D  013F 
012E  058C 

0218  0 12F  F  A 1  I  JST  CYADJ 

0219  0130  F947  FMOV  FTCYC/ CMPTBL+4 

0131  013F 

0132  058E 

0220  0133  F72 1  PTN  SETTBL 

0221  0134  0010  INCDNE  ARM 

e222  0135  9A91  STA  BPANCH  FINI 

0223  0136  F956  EXIT 

0224  * 

0225  0137  0000  OLDLD  DATA  0 

0226  0133  0000  DLTLD  DATA  0 
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PAGE  0009  LOW  CYCLE  FATIGUE 

0827  0139  000?  DLTSTN  DATA  0*0 

0 13A  0000 

0228  013B  012C  1300  DATA  300 

0229  0J3C  0000  LOADS  DATA  0 

0230  0.1 3D  PC00  CURLD  DATA  0 

0231  013E  0070  CUPSTU  DATA  0 

0232  0 13F  0000  FTCYC  RES  2*0  CYCLE  VALUE 

0233  « 

0234  «  ADJUST  CYCLE  TRIGGER  VALUE 

0235  0.14  1  0800  CYADJ  EMT 

0236  0142  F94S  FCMP  FTCYC* FNM 1  SEE  IF  INC  BY  I 

0143  0 13F 

0144  00C4 

0237  0145  3085  JAP  CYAD2  INC  BY  MORE 

0238  0146  F941  FADD  F 1* FTCYC* FTCYC 

0147  045E 

0J48  0 I3F 

0149  0 13F  " 

0239  0 14A  F204  JMP  CYAD3 

0240  0I4B  F94  1  CYAD2  FADD  FNM2* FTCYC* FTCYC  INC  BY  FNM 2 
014C  00C6 

0I4D  ei3F 
0J4E  013F 

0241  0 14F  F7PE  CYAD3  P.TN  CYADJ 

0242  * 

0243  * 


PAGE 

0010 

LOW 

CYCLE  FATIGUE 

0245 

* 

0246 

0150 

3218 

N  1 

LDA 

CNTM  1 

0247 

0151 

2103 

JA2 

N  IX 

0243 

0152 

E219 

LDA 

HUM 

0249 

0153 

96  16 

SUB 

CUFLD 

SAVE  POINTS 

0250 

0154 

2  03  1 

JAM 

DAT*!  1 

0251 

0155 

F2*6 

■i  ix 

jmp 

MOT! 

02  S2 

0156 

32  14 

DAT?!  1 

LDA 

tlUt-11 

OF  LOAD 

0253 

0157 

3  A 14 

ADD 

MUM 

0254 

0153 

9  A 1  3 

sta 

MUM 

AMD  STPAIN 

0255 

0159 

H6  1C 

LDA 

CUSLD 

0256 

015A 

F99  1 

GIVE 

TABLE3 

015E 

04  AA 

0257 

eisc 

F206 

•IMP 

FULLM 1 

0253 

015D 

36  IF 

LDA 

cupstt; 

ill  5X 

0259 

015E 

F99  1 

GIVE 

TABLE3 

015F 

04  A  A 

0260 

0160 

F202 

- 

JMP 

FULLM V 

0261 

0161 

DA  07 

IMS 

CM  TNI 

0262 

0162 

F279 

JMP 

MOT  1 

0263 

0163 

0110 

FULL'!  I 

t  AP 

0264 

0164 

9  AC4 

STA 

CNTN  1 

SLOPE 

0265 

0165 

F957 

CUE 

SLOPE: , 

1000 

0166 

0339 

0167 

G3E9 

0266 

eies 

F27  3 

JMP 

NOT  1 

0267 

* 

0263 

0169 

0000 

CM  TN  1 

DATA 

CALCULATION 

0269 

0  1 6  A 

0  190 

BPEAX 

DATA 

400 

20X  FS 

0270 

016S 

0004 

MUM  1 

DATA 

1  0" 

e27  1 

0  16C 

0000 

MUM 

DATA 

0 

027  2 

016D 

0900 

M  CFLG 

DATA 

0 

027  3 

016E 

0000 

UTEMP 1 

DATA 

0 

027  4 

016F 

0000 

UTEMP2 

DATA 

0 

027  5 

0170 

0  17  1 

XAPC 

DATA 

S+  1 

0276 

017  1 

0000 

XBFT 

DATA 

0 

OR  XA  • 

0277 

0172 

00f*0 

INDEX 

DATA 

0 

OP.  XB 

0273 

0173 

0000 

XC 

DATA 

0 

0279 

0004 

YALPTP 

E?U 

:  4 

e23  0 

0174 

0335 

FTJ  1  PT?. 

DATA 

Fill 

0231 

0175 

000? 

FM  TF  LG 

DATA 

0 

0232 

0176 

0363 

GETMU1 

DATA 

RAM  DOM 

0233 

0177 

0000 

CUT 

DATA 

0 

0284 

0173 

0000 

DATPX 

DATA 

0 

0285 

0179 

0000 

DATFY 

DATA 

0 

PAGE 

0011 

LOW  CYCLE  FATIGUE 

0287 

* 

PAUSE 

0238 

* 

0239 

****** 

UPDATE  SECTION  ****** 

029  0 

* 

029  1 

0  17  A 

F9  10 

UPDATE 

READ 

LO  AD,  CUPL  D 

0 17B 

0000 

0 17C 

0  1 3D 

0292 

0  17  D 

F9  10 

READ 

STROKE,  CUP.STN 

0  17E 

0001 

0 17F 

013E 

0293 

0180 

B246 

LDA 

BRANCH 

0294 

018  1 

303  1 

JAP 

$+2  IF  <  0  THEM 

029  5 

0132 

F95F 

DOME 

REOUESTED  DOME 

029  6 

0143 

3  13  1 

JAG 

S+2 

0297 

0  134 

F243 

JMP 

UP: 

0298 

0135 

E6C3 

LDX 

INDEX  1 

0299 

0126 

E648 

LDA 

CUPSTN 

03Pe 

0187 

9504 

SUB 

e*VALPTP. 

0301 

0183 

D6  1" 

CMS 

BREAK 

0302 

0189 

F202 

JMP 

S+3 

0303 

0  18  A 

0000 

MOP 

0304 

0  18B 

F95F 

DOME 

0305 

C13C 

E64E 

LDA 

CUP STM 

0306 

0  1 3  D 

D6CD 

CMS 

LLIMIT 

0307 

013E 

F2C6 

JMP 

REV  UP 

0308 

0  13F 

MOP 

0309 

0190 

26  53 

LDA 

CURED 

03)0 

019  1 

9  E5  A 

STA 

OLDLD 

031  1 

0192 

F9  1  1 

RAMP 

DO'RJ 

0)9  3 

3000 

0312 

0194 

F956 

EXIT 

03J  3 

* 

0314 

0195 

B6  1C 

PEVU? 

LDA 

DATPY 

0315 

0196 

210A 

J  AT 

XX3 

0316 

0197 

E6  59 

LDA 

CUP STM 

0317 

0195 

BE29 

EM  A 

UTEUP2 

0318 

0199 

0043 

TAX 

0319 

0 19  A 

B65D 

LDA 

CURL  D 

0320 

0  19B 

BE2D 

EM  A 

UTEMPI 

0321 

0  19C 

F9  57 

CUE 

PRINT,  2900 

0I9D 

02F  6 

019E 

0B54 

0322 

0  19F 

0110 

JAP. 

0323 

0  1  A0 

9  E27 

STA 

DATPY 

0324 

0  1 A  1 

E63  1 

XX3 

LDX 

XADC 

0325 

01A2 

F943 

FCMP 

♦  CM ptrl,  fcycle 

01  A3 

3  53  A 

01A4 

04  3  A 

0326 

01  AS 

3  189 

JAG 

DATA0  1  FILL  TABLE  'RILE: 

0327 

01A6 

B669 

LDA 

CUPL D  VALUE  SOUGHT 

0328 

01A7 

0000 

NOP 

0329 

0IA8 

0000 

NOP 

• 

0330 

01A9 

0000 

NOP 

PAGE 

0012 

LOW  CYCLE  FAT1GU' 

0331 

eiAA 

B66C 

LDA 

CURSTfl 

0332 

01  AH 

0PP0 

NOP 

0333 

eiAC 

PP0P 

MOP 

0334 

01  AD 

00P0 

NOP 

0335 

0  1 AE 

FE9C 

J  ST 

SETT3L 

0336 

0  1 AF 

F94  1 

DATA0  1 

FADD 

Fl/FCYCL  Z,  FCYCLE 

0180 

045E 

0  1B1 

P43  A 

0ID2 

043  A 

0337 

0  1B3 

B67C 

LDA 

OLDLD 

0333 

01B4 

SE49 

ADD 

NUM 1 

0339 

01E5 

9E7D 

STA 

DLTLD 

0340 

81S6 

8E73 

ADD 

130? 

034  1 

01B7 

9E7B 

STA 

L0AD2 

0348 

0IB8 

F9  1  1 

RAMP 

UP 

01B9 

0000 

0343 

0.1  BA 

B645 

LDA 

RMDFLG 

0344 

01BB 

2103 

JA2 

T71  PUP 

0345 

PJEC 

F?46 

OST 

*GETNUM 

0346 

01SD 

F943 

FMPL 

HFNGE/  PNDTMP/HLIMIT 

0.1BE 

0452 

01BF 

0456 

01C0 

00BE 

0347 

0JC1 

F94  5 

FIX 

HLIMIT,  KLIM  IT 

0.1  C2 

00BE 

01C3 

00BE 

0343 

01C4 

0110 

Rl  PUP 

ZAP 

0349 

01C5 

9  API 

STA 

BRANCH 

0350 

0106 

F956 

EXIT 

0351 

* 

0358 

0IC7 

0000 

EP.ANCH 

DATA 

0 

0353 

* 

0354 

01C8 

E 1  00 

UP: 

LDX 

INDEX1 

00BD 

• 

0355 

01C9 

8504 

LDA 

S*VAL  PTR 

0356 

pica 

9  63  C 

SUB 

CUR STM 

0357 

eicB 

D66  1 

CIS 

BREAM 

0353 

0  1 CC 

F2P2 

JMP 

S+3 

0359 

01  CD 

PPPP 

NOP 

0360 

PICE 

F95F 

DONE 

0361 

01CF 

B 1 00 
00HE 

LDA 

HLIMIT 

0368 

01  DP 

D69  2 

CMS 

CUPSTN 

0363 

BID! 

F24C 

JMP 

REV DUN 

0364 

f  1D2 

0  000 

MOP 

0365 

01D3 

D69  6 

LDA 

CUPLD 

0366 

P1D4 

9E9D 

STA 

OLDLD 

0367 

01D5 

F9  1  1 

RAM  P 

UP 

01D6 

0000 

0368 

P1D7 

F94« 

FCMP 

FCYCLE/  F  I 

0ID3 

043A 

01D9 

045E 

0369 

PI  DA 

3101 

JAN 

NOT  1 

203 


PAGE 

0013 

LOU  CYCLE  FATIGUE 

0370 

0 1 DS 

F63B 

JMP 

Ml  RETURNS  TO  MOT! 

037  1 

01DC 

B66F 

MOT  1 

LDA 

MDFLG 

0372 

01 DD 

2  PDF 

JAM 

UPEXI T 

e37  3 

01DE 

3139 

JAG 

MD2MD 

0374 

0  1 DF 

E6A2 

LDA 

CUPLD  AT  1ST  SMPL  PT? 

037  5 

0  1E0 

D6A3 

CMS 

DLTLD 

0376 

0  IE  1 

F23B 

JMP 

UPEXI T  MO 

0377 

01E2 

0000 

MOP 

0378 

C1E3 

9EAB 

STA 

DLTLD  YES,  STOP.E  DATA 

0379 

01E4 

E6A6 

LDA 

CURSTfJ 

0380 

01ES 

9EAC 

STA 

DLTSTM 

0381 

01E6 

DE79 

IMS 

MDFLG 

0382 

01E7 

F235 

JMP 

UPEXI T 

038  3 

01E3 

B6AP 

MD2ND 

LDA 

CUPLD  AT  2MD  SMPL  PT? 

0334 

0  1E9 

D6AD 

CMS 

L0AD2 

038  5 

0IEA 

F232 

JMP 

UPEXI T 

0336 

0IE3 

0000 

MOP 

0337 

01SC 

Be  ps 

LDA 

CUPLD  YES,  CALC.  MD 

0383 

CiED 

96P5 

SL'B 

DLTLD 

0389 

PIES 

9  “36 

STA 

DLTLD 

039  0 

01 EF 

E6B  1 

LDA 

CUP STM 

039  1 

01F? 

9  6E7 

SUB 

DLTSTM 

0392 

0 1 F  1 

9EE3 

STA 

DLTSTM 

0393 

0  IF2 

F946 

FLT 

DLTLD,MOD 

01F3 

0133 

01F4 

045C 

0394 

01F5 

F943 

FMPL 

MOD,  STPESV, MOD 

0IF6 

045C 

0 1F7 

044E 

01F8 

045C 

0395 

0  1F9 

F946 

FLT 

DLTSTN, DLTSTN 

0 1FA 

0139 

0 1FB 

0139 

0396 

01FC 

E68C 

LDX 

XAEC  XB= IMDEX 

0397 

01FD 

F943 

FMPL 

DLTSTN,  *STVALP,  DLTSTN 

0  1FE 

0139 

' 

0  IFF 

3PB4 

0200 

0139 

0398 

0201 

F944 

FDVD 

MOD, DLTSTN, MOD 

0202 

045C 

0203 

0  139 

0204 

04  5  C 

0399 

0205 

F94  3 

FMPL 

MOD, F1000,MOD 

0206 

045C 

0207 

0466 

0203 

04  5C 

0400 

P209 

F94  1 

FADD 

MOD, XX, XX  CALC.  NEU  * 

020A 

C45C 

02PB 

P45A 

020C 

04  5  A 

04P1 

020D 

DS96 

IMS 

CUT  MODULUS 

0402 

C20E 

F20C 

JMP 

XI  T  EVERY  4TH 

0403 

020F 

F944 

FDVD 

XX, NM,MD  CYCLE 

PAGE 

0014 

LOW  CYCLE  FATIGUE 

0210 

045A 

021  1 

0458 

0212 

0274 

0404 

0213 

C7  04 

LAM 

4  AVERAGE  OVER 

0405 

0214 

9E9D 

STA 

CNT  4  CYCLES 

0406 

0215 

F947 

FMOV 

F0,XX 

0216 

006S 

0217 

045A 

0407 

0213 

F947 

FMOV 

F4,NN 

0219 

0460 

02  1 A 

0453 

0403 

02  IB 

0010 

XI  T 

AFM 

RESET  FLAG 

0409 

02  1C 

9EAF 

STA 

MDFLG 

04 10 

02  ID 

F956 

UF2XIT 

EXIT 

04  j  1 

* 

04  1 2 

02 1 E 

B6A9 

REV DUN 

LDA 

RNDFLG  NO  STRESS  TEST 

0413 

02  1 F 

3104 

JAN 

RVDM  WITH  RANDOM  OPTION 

0414 

0220 

E25  1 

LDA 

STRESS 

04J5 

0221 

9624 

SOB 

CUPLD 

0416 

0222 

203  1 

JAM 

$+2 

0417 

e223 

F95F 

DONE 

END  OF  TEST 

0413 

0224 

B6AC 

P.VDN 

LDA 

DATPX 

0419 

0225 

2  10D 

JAZ 

XX2 

0420 

0226 

B6E9 

LDA 

CUPLD 

0421 

0227 

9239 

STA 

UTEMPl 

0422 

0228 

B6EA 

LDA 

CVFSTN 

0423 

0229 

9  23  A 

STA 

UTEMF2 

0424 

022A 

F947 

FMOV 

FCYCLE,  FAC:  3 

022B 

043A 

022C 

0278 

_ 

0425 

022D 

F947 

FMOV 

MD,  FAC:  4 

022E 

0274 

022F 

02F4 

0426 

0230 

01  10 

ZAP 

0427 

0231 

9EB9 

STA 

DATPX 

0423 

0232 

DEB9 

IMS 

DATPY 

0429 

0233 

F946 

XX2 

FLT 

CURSTN,  TEMFAV 

0234 

013E 

0235 

0433 

0430 

0236 

F94  1 

FADD 

TEMPAV, AUGSTN, AUGSTN 

0237 

0433 

0238 

0450 

0239 

0450 

0431 

023A 

E6CA 

LDX 

XA3C 

0432 

023B 

F943 

FCMP 

*CM PTEL,  FCYCLE 

023C 

8  5?  A 

023D 

043  A 

0433 

023E 

3  190 

JAG 

DATA02 

0434 

e23F 

B1C0 

LDA 

CURLD 

0  1 3D 

0435 

0240 

000? 

NOP 

0436 

024  1 

0000 

NOP 

e437 

0242 

0000 

NOP 
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0438 

0243 

3100 

LDA  CUP.STN 

- 

0  133 

0439 

0244 

0000 

MOP 

044  0 

0245 

0000 

NOP 

0441 

e246 

0070 

MOP 

044  S 

0247 

C22C 

LDA  MD 

0443 

0243 

0000 

MOP 

0444 

e249 

0720 

MOP 

044  5 

024A 

0700 

NOP 

0446 

0243 

B229 

LDA  MD+1 

0447 

024C 

0000 

MOP 

0448 

024D 

0000 

MOP 

0449 

024E 

0700 

NOP 

0450 

024F 

F9  1  1 

DAT  AO  2  RAMP  DOWN 

0250 

3000 

0451 

0251 

0110 

ZAP 

0453 

e2S2 

9  EE  5 

STA  MDFLG 

0453 

0253 

3603 

LDA  RUDFLG 

04  54 

0254 

2  103 

JA Z  PIP  DM 

0455 

0255 

FFDF 

J  ST  *GETMIM 

0456 

0256 

F943 

FMPL  LP!GE>  PNDTMP, LLIMIT 

0257 

0454 

0258 

0456 

0259 

COC? 

0457 

025A 

F945 

FIX  LLIMI T^LL IMIT 

025B 

OOC0 

025C 

0CC0 

0458 

025D 

0350 

RMPDN  ARP 

e459 

P25E 

9S97 

STA  BRANCH 

0460 

025F 

F956 

EXIT 

0461 

* 

0462 

0260 

F9  57 

FULL  CUE  UIMXER, 1005  FLASH  STATUS 

026  1 

026  D 

0262 

03ED 

0463 

0263 

0710 

A  PM  REQUEST -A  DOME 

0464 

0264 

9E9D 

STA  BRANCH  IN  UPDATE 

0465 

e265 

F9  56 

EXIT 

0466 

* 

0467 

0266 

0P10 

STAT:A  API  REQUEST  A  DOME 

0468 

0267 

9EA2 

STA  BRANCH  IN  UPDATE 

0469 

0268 

F95  1 

CLOS 

0470 

* 

047  1 

0269 

DEF  1 

STAT-B  IMS  DATPX 

047  2 

026  A 

F9S8 

VJNX  2 

026B 

coeo 

0473 

P26C 

F95  1 

CLOS 

0474 

* 

047  5 

C26D 

F958 

"INXER  WINK  1 

026S 

0001 

0476 

026F 

F9S  1 

CLOS 

0477 

* 

0478 

027  0 

07  A3 

IMITCM  DATA  ItUTCY 

0479 

0271 

0112 

SETPTR  DATA  SETTBL 

<  Ul 
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0480 

0272 

0000 

STPESS 

EES  2,  0 

0481 

e274 

0000 

MO  . 

PES  2/  0 

0482 

e276 

0000 

FAC:  2 

P.ES  2,  0 

0483 

0278 

oeee 

FAC:  3 

P.ES  2,  0 

0484 

* 

PAUSE 

043  S 

****** 

FINAL  SECTION 

****** 

0486 

* 

0487 

027  A 

0110 

FIMAL 

EAR 

0488 

027B 

9EE4 

ST A  BRANCH 

0439 

027  C 

F9  0F 

CRLF 

0490 

027  D 

F90F 

CRLF 

049  1 

*  TYPE 

TRAILER 

0492 

027E 

F909 

TYPE  NULL 

027  F 

04E2 

0493 

023  0 

F9e9 

TYPE  NULL 

028  1 

04  E2 

0494 

0232 

0000 

NOP 

0495 

0233 

F99  3 

DATE 

0496 

0284 

F9  0F 

CRLF 

0497 

023  5 

F909 

TYPE  BUFFI D 

0286 

053E 

0498 

0237 

F9  0F 

CRLF 

0499 

0233 

F9  0F 

CRLF 

0500 

0289 

F900 

JST  SWAP 

SAVE  CYCLE 

0398 

0501 

e23A 

B400 

LDA  00 

DATA  IN  CASE 

0502 

023B 

318  1 

JAG  L00P3 

START 

0503 

023C 

FF1C 

JST  *IMITCX 

0504 

023  D 

E26  5 

L00P3 

LDX  XABCP 

0505 

023E 

F947 

FMOV  *  CM  PT  EL  * 

FAC:  t 

028  F 

8  53  A 

029  0 

0426 

0506 

029  1 

F99  2 

GET  TABLE! 

• 

0292 

0463 

0507 

0293 

F242 

JMP  EMPTY 

0se8 

0294 

9SIC 

STA  FAC; 3 

— 

0509 

029  5 

F992 

GET  TABLE4 

0296 

04CI 

0510 

0297 

F23E 

JMP  EMPTY 

051  1 

0293 

9E22 

STA  FAC: 2 

0512 

0299 

F99  2 

GET  TABLE4 

029  A 

04C  1 

0513 

029B 

F23A 

JMP  EMPTY 

0514 

0290 

9E25 

STA  FAC; 2+1 

• 

0515 

* 

TAB  2 

0516 

* 

VDEC  FAC; 1,9* 

0  CYCLE  # 

0517 

029  D 

F94D 

VFLT  FAC; 1 

029  E 

0426 

0513 

* 

TAB  5 

0519 

* 

VDEC  FAC: 2, 10 

,  0  MODULUS 

0520 

029F 

F94D 

VFLT  FACi 2 

02A0 

0276 

i 

0521 

• 

TAB  6 

i 


PAGE 

0017 

LOW  CYCLE  FATIGUE 

0522 

02  A 1 

FA0C 

jst 

PRINTV 

0S23 

e2A2 

C6A0 

LAP 

•  • 

eS24 

" 

* 

LXP  : 

31 

0525 

02A3 

C4  1C 

LXP 

23 

0526 

P2A4 

F9  0E 

OTT 

0527 

02A5 

P0A3 

DXP. 

0528 

02A6 

3342 

JXM  . 

5-2 

0529 

02  A7 

F99  2 

GET 

TABLE  1 

02A8 

0463 

0530 

02A9 

F2?C 

JMP 

EMPTY 

0531 

02  AA 

9  E32 

STA 

FACs  3 

0532 

02AB 

FAC  2 

JST 

PRI MTV 

0533 

02AC 

FF3B 

JST 

*SETPTR 

0534 

02AD 

F620 

JMP 

LOOP3 

053  5 

* 

0S36 

02AE 

0300 

PP.INTV 

EMT 

0537 

02  AT 

F946 

FLT 

FACs  3/ FAC:  3 

02B0 

0273 

02B1 

0278 

0538 

02B2 

F943 

FMPL 

FAC's  3#  STRESV,  FAC:  3 

02B3 

0278 

02B4 

P44E 

02B5 

0273 

0539 

* 

WDEC 

FAC; 3, 3, 3  STPESS 

0540 

02B6 

F94D 

WFLT 

FACs  3 

02B7 

0278 

0541 

* 

TAB  i 

6 

0542 

02  B8 

E23  A 

LDX 

XABCP 

0543 

02B9 

F99  2 

GET 

TABLE2 

02BA 

0489 

0544 

02BB 

F21A 

JMP 

EMPTY 

0545 

02BC 

9  A3  7 

STA 

F  AC s  4 

0546 

02BD 

F946 

FLT 

FACs  4»  FACs  4 

02BE 

02F4 

02BF 

e2F4 

. 

0547 

02CP 

F943 

FMPL 

FACs  4/  *  STV  ALP*  FAC!  4 

02CI 

02F4 

02C2 

8PF4 

02C3 

02F4 

0548 

* 

WDEC 

FAC:  4,  7,  4  STP.AIM 

0549 

02C4 

F94D 

WFLT 

F  AC  s  4 

02C5 

02F4 

0550 

* 

TAB  ' 

7 

0551 

02C6 

F944 

FDVD 

FAC: 3»  FAC: 2*  FAC:  3 

02C7 

0273 

02C8 

P276 

02C9 

C27  3 

0552 

0PCA 

F9  4  3 

FMPL 

FAC: 3»  FI CPP*  FAC:  3 

02CB 

0273 

02CC 

0466 

C2CD 

0273 

0553 

C2CE 

F942 

FSUB 

FAC: 4, FAC:  3/ FAC:  3 

02CF 

02F  4 
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02D0 

0278 

02D1 

027  3 

05S4 

* 

VDEC 

FAC  ;  3, 9, 7  FLASTIC  STPAIM 

0555 

02D2 

F94D 

UFLT 

FAC;  3 

02D3 

0273 

0556 

02D4 

F9  0F 

CPLF 

0557 

P2D5 

F727 

P.TM 

PP.IMTU 

0553 

* 

0559 

02  D6 

F9PF 

EMPTY 

CPLF 

0560 

02  D7 

F9  PF 

CPLF 

0561 

02D3 

F9  09 

TYPE 

ML  AST 

02D9 

0575 

0562 

* 

VDEC 

FCYCLE,  9,0  FINAL  CYCLE  # 

0563 

02DA 

F94D 

UFLT 

F  CYCLE 

0203 

e43A 

0564 

02  DC 

F9  0F 

CPLF 

0565 

02  DD 

F9P9 

TYPE 

MAVGS 

02DE 

057A 

_ , 

0566 

P2DF 

F944 

FDVD 

AUGSTN,  F CYCLE, AUG STM 

P2Ef 

0450 

02EI 

043A 

02E2 

0450 

0567 

02E3 

E20F 

LDX 

XABCP 

0563 

02E4 

F943 

riPL 

AUG  STM,  *  STV  PL  P,  FAC;  3 

02E5 

045  P 

e2E6 

3PE4 

02E7 

0278 

0569 

* 

VDEC 

FAC; 3, 7, 4  PEAT  STPAIN 

057  0 

02E3 

F94D 

VFLT 

FAC;  3 

02E9 

0275 

057  1 

02EA 

F9  0F 

CPLF 

• 

0572 

P2EB 

F9P9 

TYPE 

M SLOPE  ' 

P2EC 

0583 

0573 

* 

VDEC 

PESULT, IP, 0  SLOPE 

0574 

0PED 

F94D 

UFLT 

RESULT 

02EE 

0436 

057  5 

02EF 

FAA3 

JST 

SWAP 

057  6 

P2FP 

F40F 

CPLF 

0577 

02F  1 

F90F 

CFLF 

0578 

02F2 

F  95  1 

CLOS 

0579 

* 

053  P 

02F3 

017  1 

XAECP 

DATA 

XBPT 

0581 

02F4 

0000 

FAC J  A 

RES 

2,  0 

0532 

* 

0583 

02F6 

9900 

phimt 

STA 

FAC;  1 

0426 

0584 

e2F7 

EES  1 

STX 

FACj2 

0585 

02F3 

F946 

FLT 

FAC: 1, FAC; l 

02F9 

0426 

02FA 

0426 

0586 

02FB 

F946 

FLT 

FAC; 2, FAC; 2 

02FC 

e276 

02FD 

0276 
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0587 

02FE 

F943 

FMPL 

FACs’  1, STRESV,  FACs  1 

02FF 

e426 

0300 

044E 

0301 

0426 

0588 

0302 

E6  0F 

LDX 

XABCP 

0589 

0303 

F943 

FMPL 

FACs  2, *  STVALP,  FACs  2 

0304 

027  6 

0305 

8  034 

0306 

027  6 

0590 

0307 

C606 

LAP 

6 

0591 

0308 

9900 

STA 

OUFLEN  FIELD  LENGTH  ’ 

05EE 

0592 

0309 

FAA5 

J  ST 

CRLF2 

0593 

♦ 

TAB  2 

0594 

* 

.VDEC 

FACs  3,  9,0  CYCLE  t 

059  5 

* 

OUTPUT  CYCLE  # 

05*6 

030 A 

F947 

FMOV 

FUOUFLZ  /  1. 

030B 

045E 

... 

030C 

05F2 

. 

0597 

030D 

F947 

FWOV 

FACs  3,  Ol'FLX 

03  eE 

0278 

030F 

05F0 

0598 

0310 

F94  l 

FADD 

F1EM4, OUFLX, OUFLX  ELIM 

031 1 

05F8 

03  J  2 

05F0 

0313 

C5F0 

0599 

0314 

F9  00 

JST 

OUFLFX 

0596 

0602 

e3l5 

FA95 

JST 

SPACE 

0601 

* 

OUTPUT  MODULUS 

0602 

0316 

F947 

FMOV 

F 1 E6, OUFLZ  /  1.  E6 

0317 

05F4 

0318 

05F2 

0603 

0319 

F947 

FMOV 

FACs  4, OUFLX 

031 A 

02F4 

03  IB 

05F0 

0604 

03  1C 

F9C0 

JST 

OUFLFX 

. 

0596 

0605 

0310 

FASD 

JST 

SPACE 

06P6 

.  * 

OUTPUT  MAX  STRESS 

0607 

03  IE 

F94  7 

FMOV 

FACs  1, OUFLX 

03  IF 

e426 

0320 

05F0 

0608 

0321 

F947 

FMOV 

FI,  OUFLZ  /  1. 

e322 

045E 

0323 

05F2 

0609 

0324 

F9P0 

JST 

OUFLFX  PRINT  NUM 

0596 

0610 

0325 

FA35 

JST 

SPACE 

0611 

* 

STORE  STRAIN 

0612 

0326 

F947 

FMOV 

FACs  2,  0UTMP1 

0327 

0276 

e328 

03B5 
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06J3 

* 

TAB  7 

06J4 

0329 

FA5D 

JST  PPM T SB 

0615 

032A 

F946 

FLT  UTEMP 1#  FAC:  1 

032B 

016S 

032C 

0426 

. 

0616 

032D 

F946 

FLT  UTE1P2,#  FACs  2 

032E 

016F 

032F 

027  6 

0617 

033P 

F943 

FMPL  FACt  Ij STRESV,  FACs  1 

0331 

0426 

0332 

044E 

0333 

0426 

e6J8 

0334 

264  1 

LDX  XABCP 

0619 

0335 

F943 

FMPL  FACs  2i  *STVALP.  FAC:  2 

0336 

027  6 

0337 

8  0B4 

0338 

0276 

0620 

-* 

OUTPUT  MIM  STRESS 

0621 

0339 

F947 

FMOV  FACs  I*  OUFLX 

033A 

0426 

033B 

05F0 

0622 

033C 

F947 

FMOV  F1/0UFL2  /  1.0 

033D 

0452 

033E 

05  F2 

0623 

033F 

F9  00 

JST  O'JFLFX 

0596 

0624 

0340 

FA6A 

JST  SPACE 

0625 

* 

OUTPUT  MAX  STRAIN 

e626 

034  1 

F947 

FMOV  F1E13.0UFLZ  /  l.E-3 

0342 

05F6 

0343 

05F2 

0627 

0344 

F947 

FMOV  OUTMP1,  OUFLX 

034  5 

03B5 

0346 

05F0 

0628 

0347 

F9P0 

JST  OUFLFX 

0596 

• 

0629 

0343 

FA6  2 

JST  SPACE 

0630 

* 

OUTPUT  MIN.  STRAIN 

0631 

0349 

F947 

FMOV  F1EI3.0UFLZ  /  l.E-3 

034  A 

05F6 

034B 

05F2 

_ 

0632 

P34C 

F947 

FMOV  FAC:  2/  Ol'FLX 

034D 

0276 

P34E 

05F0 

0633 

034F 

F9PP 

JST  OUFLFX 

0596 

0634 

0350 

FAS  A 

JST  SPACE 

0635 

* 

TAB  7 

0636 

* 

OUTPUT  PLASTIC  STPAIM  MAX. 

0637 

0351 

F947 

FMOV  FIEI4.0UFL7  /  l.E-4 

0352 

P5F8 

0353 

0  5F2 

0638 

0354 

F947 

FMOV  0UTMP2*  OUFLX 

FMOV  0UTMP2*  OUFLX 
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0355 

03B7 

0356 

05  F0 

0639 

0357 

F90? 

JST 

OUFLFX 

0596 

0640 

0358 

FAS  2 

JST 

SPACE 

0641 

03  59 

FA2D 

JST 

PFTJTS3 

0642 

*  OUTPUT  HIM  FSTPAIM 

0643 

03  5A 

F9  4  7 

FMOV 

F1E!4,0UFLZ  /  l.E-4 

03  5B 

05F8 

035C 

05F2 

0644 

035D 

F947 

FMOV 

0UTMP2, 

OUFLX 

035E 

03E7 

035F 

05F0 

0645 

036  0 

F900 

JST 

OUFLFX 

059  6 

0646 

0361 

FA49 

JST 

SPACE 

0647 

0362 

FA4C 

JST 

CPLF2 

0648 

e363 

F9  5  A 

DIM 

2 

0364 

0002 

0649 

0365 

F9SA 

DIM 

| 

0366 

0001 

0650 

0367 

F9  5  1 

CLOS 

0651 

* 

0652 

* 

0653 

0368 

0?  00 

RAN  DOM 

EIT 

0654 

0369 

5304 

DATA 

s  5304 

ICA,  GET  CONSOLE  STATUS 

0655 

036  A 

9  AEB 

STA 

RMDTMP 

SAVE  IT 

0656 

e363 

C6AA 

LAP 

j  AA 

IS  THIS  AM  LSI  OP.  ALPHA? 

0657 

036C 

4404 

DATA 

•  4404 

OCA 

0658 

036D 

5804 

DATA 

:  53  04 

ICA 

0659 

e36E 

3  107 

JAM 

LSI 

IT'S  AM  LSI  IF  MOM-ZEPO  PESPOM 

0660 

036F 

E215 

LDX 

FN  t 

ELSE,  IT'S  AN  ALPHA 

0661 

037  0 

1  1  A3 

RP.X 

1 

0662 

037  1 

6803 

SIN 

2 

- 

0663 

0372 

B2  13 

LDA 

PM  2 

0664 

0373 

0110 

ZAP. 

• 

0665 

0374 

19  AS 

DATA 

1  19  AE 

MPS  15 

0666 

037  5 

F204 

JMP 

RMDF1H 

0667 

037  6 

01  10 

LSI 

ZAP 

0668 

e377 

E27E 

LDX 

RM2 

ASSURE  X-PEG  POSITIVE  FOP  LSI 

0669 

0378 

1960 

DATA 

:  I960,  PM  1  MFY  PMI 

0379 

033  5 

0670 

037  A 

B2D3 

RfJDFIM 

LDA 

PMDTMP 

067  1 

037  B 

4404 

DATA 

l  4404 

OCA,  RESTORE  COM  SOLE  STATUS 

067  2 

037  C 

13  A3 

LPX 

1 

0673 

037  D 

3801 

JXN 

S  +  2 

0674 

P37E 

C403 

LXP 

3 

• 

067  5 

037  F 

EA05 

STX 

PM  1 

0676 

0330 

EAD5 

STX 

RNDT'IP 

0677 

033  1 

F9  4  6 

FLT 

PMDTMP#  PMDTMP 

0382 

0456 

0333 

0456 

0678 

P3«4 

F7  1C 

RTN 

RANDOM 

RTN  RANDOM 
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FIJI  DATA  3 

FN2  DATA  2S3 

* 

PPMTS3  SIT 

FDVD  FAC:  !,  FAC:  4,  FAC:  I 


FMPL  FAC:  1,F100C>FAC:  1 


FSUB  FAC: 2,  FAC:  I, FAC:  I 


*.  UDEC  FAC: 1,9,7  PLASTIC  STRAIN 

*  STORE  MAX.  PLASTIC  STRAIN 
FMOV  FAC:  |,0UTMP2 


RTN  PPNTSB 
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0679 

0335 

0003 

0630 

0386. 

00FD 

068  1 

0682 

0337 

0800 

068  3 

0333 

F944 

0389 

0426 

038  A 

02F4 

038  B 

0426 

0684 

038C 

F943 

033  D 

0426 

033E 

0466 

033F 

0426 

068  5 

039  0 

F942 

039  1 

0276 

0392 

0426 

0393 

0426 

0686 

0637 

0688 

e394 

F94  7 

0395 

0426 

039  6 

03B7 

0689 

0397 

F7  10 

069  0 

069  1 

0398 

080? 

0692 

0399 

E23B 

0693 

039  A 

EA97 

0694 

039B 

C206 

069  5 

039  C 

EA97 

0696 

039D 

C7P6 

0697 

039E 

9AB7 

0698 

P39F 

E6AC 

0699 

e3A0 

D4  02 

e70P 

03  A 1 

BCP? 

0701 

03A2 

9  C02 

07  02 

03  A3 

B33E 

0703 

03A4 

EB3F 

07  04 

03A5 

9B3C 

07  05 

03A6 
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OUFLF.M 

DATA 

r 

FI  ELD  LEM.  . 

0930 

P5EF 

nn  n 

0"FLM2 

DATA 

p 

TEMP 

0931 

P5FP 

PPPP 

O’TLM 

PFC 

2,  P 

(F.P.)  X 

09  3  2 

05F2 

rrrr 

0UFL7 

PES 

2#  P 

(F.P)  r. 

0933 

P5F4 

4A74 

F  1E6 

DATA 

;  4  A7  4  # 

!  24  PP  1.E6 

05F5 

2«PP 

0934 

P5F6 

3P8  3 

F1EM3 

DATA 

l 3333/ 

i  126F  I.E-3 

05F7 

126F 
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PAGE 

09  35 

09  36 
C937 


0P32 


LOW  CVCLE  FATIGUE 


05F3  39  D1  F1EM4  DATA  :39Dt*:B?17  I.E-4 

05F9  B7I7 

* 

DID 


\ 


PAGE  0033 


LOW  CYCLE  FATIGUE 


ACMPT3 

0425 

AUG  STO 

0450 

BRA' I CH 

01C7 

BREAK 

0  16A 

CLEARS 

PC’  76 

CLKRT 

04  4  C 

CM  TO  I 

Pie? 

CNT 

0177 

CUP.STO 

P13E 

CURST? 

0rC2 

CYAD3 

014F 

DAT  A? 1 

01 AF 

DATPX 

P  173 

DATPY 

0179 

DOWN 

sppe 

EMPTY 

0206 

FAC:  3 

027a 

FAC:  4 

02F4 

FINAL 

027  A 

FMM  I 

00C4 

FTCYC 

P13F 

FTHICK 

043C 

FVIDTH 

043E 

F0 

006  E 

FIE6 

0SF4 

FI 

045E 

F2 

007  0 

F3 

00CA 

F5 

0462 

F:  PI 

007  A 

HLItJIT 

0033 

HP1JC-E 

045? 

1NCTBS 

ei27 

INDEX 

0172 

INI  TCY 

00A9 

1300 

0133 

LLIMIT 

0PC? 

LOAD 

0000 

LRJGE 

0454 

LSI 

037  6 

MAXLIM 

044  6 

MDFLG 

0  I6D 

MEXEC 

052D 

NHEAD 

0553 

MMSTRS 

P5P3 

MOD 

045C 

MSTRLM 

05PD 

NAME 

0007 

NM 

C4  58 

MOT  1 

0  1  DC 

NUMl 

P16B 

U  IX 

0155 

OUFLEN 

35E3 

OUFLFX 

059  6 

OUFLE 

05F2 

OULOOP 

05EC 

OURET 

05E9 

ousAvr 

05ED 

OU1 

05E3 

OU2 

05E4 

0U4 

05D4 

BRIM TV 

02  AE 

RAJ  DOM 

0363 

RESETM 

053  1 

RESULT 

0436 

REV  IT  RJ 

02  IE 

RMPUP 

01C4 

PMDFIM 

037  A 

IWpMLT 

0070 

PM  DM 

0CC3 

RNI 

038  5 

PM  2 

03S6 

RSTPT0 

PPE5 

RVDN 

0224 

SETTEL 

0112 

SETT32 

0  1  IF 

SPACE 

03  AB 

SPPATE 

04  4  A 

STRAIN 

0002 

STRESS 

027  2 

STRSLM 

0444 

STVALP 

PPE4 

TABLE  1 

0463 

TABLE2 

0489 

TEMPAV 

043« 

TEMPI 

2432 

UPDATE 

0  17  A 

UREX1 T 

02  ID 

VTEMP1 

016E 

UTEMP2 

016F 

WINKER 

02*D 

VTCLP. 

0072 

XBPT 

017  1 

XC 

0173 

XXSUM 

042E 

XX 

045A 

XYSIM 

0430 

YSUM 

042C 

A 

05BE 

BEGIN 

00  IB 

BUFFI D 

053E 

CL  SAP  I 

0057 

CLP  2 

007  D 

CMPTBL 

053  A 

CPLF2 

03AF 

CURLD 

0  1 3D 

CYADJ 

0141 

CYAD2 

014B 

DATA02 

024F 

DATN  I 

0156 

DLTLD 

0133 

DLTST! 

0  1  39 

FAC:  1 

0426 

FAC:  2 

0276 

F  AREA 

0442 

FCYCLE 

04  3  A 

FNM2 

00C6 

FNM3 

00C8 

FULLM  1 

0163 

FULL 

0260 

F1EM3 

05F6 

F1EM4 

05F3 

F  1  0 

0464 

F 1000 

0466 

F32767 

2274 

F  4 

0460 

GETOUM 

0176 

GETSTA 

029  7 

INCOME 

0134 

IMCTHL 

0  125 

INDEX  1 

003D 

INITCK 

2270 

LAST 

03F3 

LDVALR 

^0AP 

L0AD2 

C13C 

L00P3 

028D 

MAPEA 

04F7 

MAVGS 

0S7A 

MD 

0274 

MD2ND 

013? 

MIMLIM 

0443 

ML  AST 

0575 

M  PATE 

0522 

M SLOPE 

05°3 

NMEPTS 

0423 

NMMESS 

00CC 

NULL 

04E2 

MUM 

0  1 6  C 

N  1 

0150 

OLDLD 

0137 

0UFLN2 

05EF 

OUFLV 

05F0 

OUFJ 

05EP 

OUPK 

05EC 

0UTMP1 

0335 

0UTMP2 

0337 

0U3S 

05CC 

0U3 

05CP 

PRINT 

02F6 

PJTJTS3 

0337 

RESET  I 

00E  I 

RESTPT 

0"D6 

P.EVUR 

0105 

PMPTO 

P25D 

RNDFLG 

0175 

PNDME? 

05  18 

PNDTMP 

0456 

PM  1 PTR 

0174 

ROUND 

0043 

PSTEX 

rrED 

SAM  E2 

00EE 

SET PTR 

027  1 

SLOPE  I 

P3C8 

SLOPE: 

0339 

ST  AT:  A. 

0266 

STAT: 3 

0269 

STRESV 

044  E 

STROKE 

0001 

SWAP 

03°8 

SVLOOP 

03  A3 

TA5LE3 

04  AA 

TARLE4 

04  C  1 

TEMP2 

0434 

TM  rT3L 

059  0 

UP 

0000 

UP: 

0IC? 

valptr 

0004 

V I DTH 

0440 

XABCP 

02F3 

XA3C 

0170 

XIT 

0213 

XSUM 

042A 

XX2 

0233 

XX  3 

0  1  A 1 

APPENDIX  II 


SOURCE  LISTING 
AND  STRAIN 


OF  FORTRAN  PROGRAM  FOR  STRESS 
COMPUTATIONS  AND  PLOTTING 


t 


oooooo  ooooooo 


PROGRAM  DATA  ( OUTPUT , T APEl , TAPE2, T APE3, T APE4 , 
J  TAPES, TA°E6,INPUT=/7. ) 


THIS  PROGRAM  D-V:LJPr0  3Y 
CAPT  R08CRT  SCHAFRIK 
HAY, li7 i 


GC0110 

CCiOlZC 

0C0133 

tooi*.c 

conso 

GOOlcj 

GG317C 

(00190 

CCJ190 


COMMON  /A/  H(15)C ) ,r (1530 ), 3IGMA1 (1500 ,3IGMA2 ( 10 03) 
AELO.NG2 (1079) , PLSTl(i5:0),PLST2(15D0)»TITL(6C),Rl<153 
BOELTEP  (13  3  0  ) 

REAL  N 


,:longki50o  ,coo?co 
o,  ocazia 

000220 
C0023C 
OC  024 j 


I  FLAG  =  YES  FOR  COMPUTER  DATA  C00250 
IFLAG  =  M3  FOR  NO  COMPUTER  DATA  1(0260 
IFLAG1  =  YES  FOR  COMPUTER  DATA  FRINT-OUT  (DATA  ON  P.F.)  0(0270 
IUNIT  IS  THE  TA»E  NUMJER  CC026C 

0C329C 


READ  4,  IFLAG,  UNIT  ,  IFLAG1 
4  FORMAT  (  /  A1,4X,I1,-.X,A1) 

C 

IF  (IUNIT. LE. 3. OR. IUNIT. GT. 6)  IUNIT=1 
PRINT  d, IFLAG, IUNIT, IFLAG1 
6  FORMAT  (1H1 ,T2,»FR0  1  DATA  I  COMPUTER  DATA  = 
A/T2, *T APE  UNIT  IS  *,I1  / 

BT4, ’COMPUTER  JATA  FLAG  IS  *,Al//> 

IF  (IFLAG. NE.1HY)  GO  TO  50 
C 

READ  (IUNIT, 9)  ( T ITL < JT ) , JT=1, 60) 

9  FORMAT (60  A1 ) 

C 

IMAX=1503 

I=P  . 

1  CONTINUE 
1=1*1 

IF  (I. GT. I  MAX )  GO  TO  1C00 

C 

READ  (IUNIT, 13)  N(I),E(I) .SIGMAl  (I > , SIGMA2 ( I > , 
1PLST1(I),PLST2(I) 

10  FORMAT  ( 9 ( F7. 0 , 1 X ) ) 

C 

IF(N(I).LT. 3.9)  GO  TO  3 
IF  (EOF (T  UNIT  1)2,1 
3  CONTINUE 
PRINT  33 

30  FOPMAT  (T2,*PEAO  TERMINATED  3Y  ZERO  VALUE*) 
1=1-1 

GO  TO  43 
1000  CONTINUE 
I =1 M AX 

PRINT  1001,1 

10C1  FORMAT  (T2, ■»((•**•  ,2X,»IMAX  =  *,I5,2X, 

1  *D AT  A  PTS  EXCEED  ARRAY  DIMENSIONS*,//) 

GO  TO  40 
2  CONTINUE 
PRINT  31 

31  FORMAT  ( T  2 , *RE A D  TERMINAT'D  9Y  EOF*) 

1  =  1-1 

40  CONTINUE 

PRINT  18, (TITL(JA) , JA=l,&:i 
10  FORMAT  (//  T2.F3A1,  / I  2 , 5 3 ( lrt*  ) // ) 

PRINT  1 1 . r 


OE03DO 
cco3i: 
000320 
000333 
CP  0  343 

* , A 1 ,  010350 

OC  0360 
t CO  370 
CG03CC 
CC039C 
000400  - 
0CC-.1C 
0C0-.2C 
OG  0*  3C 
0  0  0  440 
GCJ450 
OC  0*bC 
0  C  047  0 
CCO-80 

ELONG1 (I) , ELONG2  ( I )  , CO  0-90 
CCG5CC 
0( OjIG 
OP052C 
GCO^G 
( C  054  C 
GC055C 
003360 
0  G  0  3  7  0 
0(0580 
( t  0  59C 
GC  OdOE 
000610 
OC 0623 
GG0j3: 
000540 
OOOaEj 
0( 366- 
0CC67C 
000690 
0  C  0  6  9  0 
( 0  0700 
00071C 
000720 
0  (>  0  7  3  i 


o  o  o  o  o  o 
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FORMAT  (  /T2, 'NUMBER  OF  DATA  PTS  =  *, 

It  //) 

IF  (I.EQ.3)  STOP 
00  20  J=1,I 

IF  CIFLAG1.NE.1HY)  GO  TO  45 

PRINT  21,  NCJ)  ,  E (J)  ,  S IG  M A 1 (J) ,SIGHA2(J)  , EL  ONGl ( J) , 

1EL0NG2  (J) .PLSTl ( J) ,PL3T2( J) 

FORHAT  <T2,F7 . 0 ,  3(1X,F7.2>,  4I1X,F7.3>> 

CONTINUE 
E<J)=E<J)*1.E6 
EL0NG1 (J)=ElONG1(J)*1.E-3 
ELONG2 (J) =£LONG2  < J) *1. E-3 
PLST1C  J)*=»LSTl(J)*l.E-3 
PlST2< J)=PLST2(J)'l.t-3 
CONTINUE 
CALL  LCFCI) 

GO  TO  51 
CONTINUE 

1  =  0  , 

PRINT  55  ' 

FORMAT  <//  T2,»NO  COMPUTER  OATA»,  ///) 

READ  9 , TITL 

PRINT  18,  (TITL(JA) ,  JA  =  1 , 50 ) 

CALL  LCFCI) 

CONTINUE 
CALL  OATAt 
CALL  SUfJ°L0T  Cl) 

STOP 
END 


SUBROUTINE  LCFCI) 

COMMON  /A/  N  C 150  0  )  ,  E  ( 1530 )  , S IGM A1 C 153 2 ) ,SIGMA2(l530>  , EL ONGl C 1 5 0 C  ) 
AELONG2C15CO) , PLSTl Ci5 3CI  , PLST2  ( 15 0 0 > , TI TL ( 5 C )  ,  R1 C 15 0 C )  , 
BOELTEPC15IO) 

COMMON  /O/  LPLST.LELST 
REAL  LPLST.LELST ,N 
DIMENSION  MSIGC1500) 

DIMENSION  DELTSIGC1500)  .OELTEL  C15  00)  ,  CELT  PL  (15CC),DELTEE(1533>, 
AJELT3TNC1500) 

EQUIVALENCE  (EC1) .OELTSIGCl) )  ,  CELONG1 (1 ) , DELTEL Cl) )  , 
ACELONG2C1)  ,OELT  =  L(l>)  , ( PL S T 1  ( 1 ) , CELT tt 1 1 ) )  , 

BCPLST2C1) .OELTSTNCl)) 


DATA  MSIG  /1530*  C1H  )/ 
DATA  IFLG  /0/ 


REAO  *,EACT,LELST,LPLjT,SFACTOR»DFACTOR,IFLG 

EACT  IS  ACTUAL  ELACTIC  MODULUS  IN  E6  PSI 
LSLST  IS  AN  ASSJMEO  ELASTIC  EFFECT  I  YE  GAGE  LENGTH 
LPLST  IS  EFFECTIVE  =lASTIC  GAGE  LENGTH 
SFACTOR  -  CO“°UTER  STRESS  CORRECTION  FACT  OR 
OFACTOP.  -  DISPL  CORRECTION  FACTOR,  COMPUTER 
IFLG  IS  USEO  TO  ?  °CC I r  Y  DATA  PRINT-OUT 
FOR  PRINT-OUT,  USE  1 


PRINT  23,  E  ACT  ,  l  EL  ST,  L=>L3T,  SFACTOR,  OF  ACTOR,  IFLG 

FORMAT  CT2,»f^oi  lCF*  /  T2,«£ACT  =  »,E12.3,»,  LlLST  =  •,  E12.5, 
Z*  LPLST  *  •,  E12.5  /  Ti,3M»", 

1*.  SFACTOR  x  ♦.  •.  OFACTOR  x  •.  F12.5  /  . 


000740 
000750 
000760 
0C0770 
000780 
0  C  0  790 
OCOSOO 
000810 
000620 
0  0  38  30 
000840 
OC  0650 
000660 
000670 
C00660 
000890 
000900 
000910 
000920 
OC  0930 
000940 
OC  0350 
000960 
C00970 
000980 
003990 
001000 
091010 
CC 1320 
0C133C 
CC 1040 
001050 
CC 1060 
OC 1370 

ooioeo 

, C  C 1090 
C  C 11 00 
001110 
OC 1120 
CC 11 30 
001140 
CC1150 
C  C 1160 
00 1170 

ociieo 

001190 
CG1200 
001210 
001220 
CO  1230 
OC 1243 
C  C 1250 
001260 
OC 1270 
C01280 
0  C 1293 
001300 
OC 1310 
OC 1320 
C  0 1330 
001340 
C01350 
0C1360 
011370 
0C1380 
001390 


* 


I 
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AT3, "COMPUTER  OATA  PRUT-OUT  FLAG  IS  *  ",I1  //) 

C 

IF  (I.Ea. 3)  RETURN 
C 

EACT=EACT"1.E*6 
DEL  TEE T  =  0. 0 
C 

00  9  J=1,I 

DELTEET=OELT££T"£<J> 

9  CONTINUE 

C  ASSUME  MINI-COMPUTER  INTERNAL  ARITHMETIC  IS  OK 

DELTEET=DELTE2T/I"<l.iO/l.  0  0) 

L£LST=EACT/Q£LTEET 

C 

00  10  J=1,I 

SIGMA1(J)=SIGMA1(J)"SF ACTOR 
SIGMA2<J)=SI3MA2(J)»SF ACTOR 
EL0IJG1  (J)  =ELCNG1  (  J)  "OFACTOR  , 

EL0NG2 ( J) =£L0MG2 ( J) "DFACTOR  1 

OELTSIF  =  SIGMAi ( j) -SIG MA2 1 J) 

DELTEK=EL0NG1(J)-EL0NS2{J) 

C  ELASTIC  STRAIN  =  SIGMA/E  =  CUT-UP) /LELST 
C 

PL1=PLST 1 ( J) 

PLST 1 ( J)  =  EL0NG1 < J)- (LELST" SIGMA  1 (J>*1.E"3/EACT> 

PL2=PLST2 (J) 

PLS  T  2 ( J) =EL0NG2( J)- (LELST" SIGH A  2 ( J) *  1 . E*3/EACT ) 
DELTPK=PL3T1 l J) -PLST2 ( J) 

IF  (0ELTPK.LE.1.E-6)  GO  TO  11 
12  CONTINUE 

OZLTEa=('HLT£<-OELTPKV /LELST 
OELTEP(J) = (OFLTPK/LPLST) 

DELTSTM=0-:LT£0  +  OELTcP(J) 

R1 ( Jl = A3S (SIGMA 1( J)/SIGMA2(J)) 

GO  TO  8 
11  CONTINUE 

PLST1(J)=PL1"LELST 

PlST2(J)=°L2*LELST 

MSIG<J)=IH" 

0ELTPK=PL5Tl ( J1-°LST2(J) 

RPL=0£LTSIF/DELTE£T 
OISPOIFiRPL/DELTEK 
DRATIO=OISPOIF*DFACTOR*1. E3 
PRINT  101,  N(J) , ORA  T 13 

101  FORMAT <T3, "CORRECTION  FACTOR  FOR  0  IS  PL ACEMENTS I  N  =  ", 

AF6. 1,3X, "SUGGESTED  OFACTOR  =  *,F6.4> 

IF  (OELTP<,GT. 1. E-6)  GO  TO  12 
M3IG«J)slHX 
DZLTPK=l.E-5 
GO  TO  12 
8  CONTINUE 

E  <J)=OELTSIF 
EL0NG1 ( J) =OELTE< 

EL0NG2  < J) =OELTP< 

PLST 1 ( J) oelted 
PLST2(J)=JELTSTM 

10  CONTINUE 
C 

PPINT  20, (TITL(JA) ,JA=l,3l) 

20  FOPMAT  (H1,T43,*InSTR3N  COMPUTER"/  T26, 

Z* OA T  A  FOR  ",  31 A  1  /  T 28 , 4 3 ( 1H* ) ,  3(/), 

XT  59 ,  "RATIO",  /  T5o,  "MAX  STRESS",/ 

1T11 , "TOTAL",  T23 , "PLASTIC" ,  T30  , 

2*  ST  R£SS» ,  T<*0,"MAX",  T*-9,  "MIN",T60,  "TO",  T68,  "ELASTIC", 
3T79,  "PLASTIC",  T#9, "STRAIN"  / 

.  .  .  4  T?."CVCI  FS*.  Til.  *f 1 ONG" •  T2J .  *F|  ONG" 


001400 
001410 
C01420 
OC 1430 
001440 
CL1450 
001460 
001470 
001480 
0C149D 
001500 
001510 
OC 1520 
OC1530 
OC 1540 
001550 
001560 
001570 
0C1560 
001590 
0C1600 
001610 
OC 1620 
001630 
0C1640 
001650 
001660 
OC 1670 
001680 
OC 1690 
001700 
001710 
CC1720 
001730 
001740 
C  C 1750 
001760 
001770 
0C1780 
OC 1790 
OC 1800 
001810 
001820 
001830 
0C1840 
001850 
001860 
OC 1870 
001880 
OC 1890 
001900 
001910 
001920 
001930 
001940 
0  C 1950 
001960 
OC 1970 
CC 1980 
CO  1990 
002000 
002010 
C02C20 
C  f  23  30 
002340 
Tir..  ro?n50 
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5  ’RANGE*,  T40  ,  ’STRESS*  , 

to  2060 

6  T48,  *STR-SS*,  T56,  *HIN  STRESS*,  T6S ,  ‘STRAIN* , 

002070 

7  T79,  ‘STRAIN*,  T5 9 ,  ‘RANGE*/, 

002360 

&  T10, ’(INCHES)*,  T20,  ’(INCHES)*,  T30, 

C02390 

9  *(<SI)*,  T4 .  ,  * (K3I ) *»  T48, 

002100 

A  * (KSI ) * »  T68,  *(PCNT)*,  T79,  »(PCNT)*,  T69,  *(PCNT)*  /) 

OC  2110 

c 

002120 

00  30  K=l,  I 

002133 

OELTEP(K)  =OELTEP  00*19  0. 

0C2140 

OiL  TEE (<) OrLTES  00*10  0. 

002150 

DELTSTN(K)=OELT3TN(K)*100. 

002160 

NTsNOO 

C  02170 

c 

002160 

C  USE  TO  ELIMINATE  PRINTING 

CC  2190 

C 

002200 

IF  ( IFLG. NE. 1 )  GO  TO  99 

0  C  2210 

c 

002220 

PRINT  22,  NT,  DELTELK)  ,02LTPL(K>  , 

002230 

lOELTSIGCO  ,SIGHA1 (K) ,310142(0 ,Rl(K) , DELTEE (K) , 

002240 

30ELTEP(K) ,OELTSTN(K) ,MSIGO<) 

C 0 2250 

22 

FORMAT  (T2,  15,  Til,  F6.5,  T21,  F6.5,  T30  , 

002260 

1  F7.2,  T4Q,  F5.1,  T43,  F&.l,  T56,  F7.3, 

002270 

3  TS8.F5. 3.T79.F6.4,  T39,  F5. 3, T120,A1> 

C02260 

C 

002290 

93 

CONTINUE 

OC  2300 

C 

002310 

30 

CONTINUE 

002320 

PRINT  40 

002330 

40 

F  0P1 AT (///  ) 

002340 

PRINT  31.0ELTEET  ,LELST 

002350 

31 

FORMAT  ( 1  HI , 

002360 

1  T  ,»THE  AVERAGE  MODULUS  FOR  THIS  OATA  WAS*, £12. 5, » 

PSI* 

,002370 

2  /  T2, ‘EFFECTIVE  ELASTIC  GAGE  LENGTH  IS  *,£12.5,*  INCHES*/) 

0C2380 

RETURN 

0C2390 

ENO 

002400 

C 

CC2410 

C**»* 

OC  2-.20 

c 

OC  2430 

SUBROUTINE  OATAl 

C02440 

COMMON  /A/  04(12900), TITL(&0) ,30(3000) 

C-C  2450 

COMMON  /C/  SI 3C ( 7 0 )  ,STRT (73)  ,STRP(7Q)  ,STRNC(70)  ,NC(70) 

f  KT  > 

00  2460 

20  \LT  ELC ( 7  3 ) ,0ELTPLC(7QI 

CC2470 

INTEGER  UNITS, OATASTS 

002480 

REAL  nc 

0Q2h90 

c 

0(2500 

REA9  11, OATASTS 

002510 

11 

FORMAT  (ID 

002523 

c 

002530 

IF  (OATASTS. LE. 0)  GO  TO  SO 

002540 

c 

OC  2550 

K  A=C 

002563 

00  15  M=l, OATASTS 

002370 

c 

002580 

c 

FOR  CHART  01  ME  NS  IN  Ml, USE  N 

0  C  2590 

c 

FOR  CHART  DIMENSIONS  IN  INCHES,  USE  I 

002600 

c 

002610 

REA 0  2,UNITS,FCTR 

002620 

2 

FORMAT  <A1,4X,F5.0) 

002630 

C 

002640 

PRINT  9, T I TL 

002650 

•  9 

FORMAK/  T2,e3(lM5)/  T2.60A1) 

OC 2663 

PRINT  b, UNITS, FCTR 

032670 

6 

FORMAT  (/T2,*F POM  OATAl,  UNITS  =  »,A1  ,/, 

002680 

AT  2 ,» ADO  T  HESr  NJMr'ER  OF  CYCLES  TO  DATA  1  •  ,  1  X  ,  F  5 . 0  /  > 

C  C  2693 

IF  (UNITS. EG. 1HI. OR. UNITS. EQ.1MH)  GO  TO  51 

CC  2700 

r.o  TO  50 

002710 

oo  o  o  o  ooooo 
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51  CONTINUE 

C ALSIG  IS  CALIBRATION  FACTOR  FOR  LOAD  SCALE  ON  H-P  CHART 

caloisi  is  extensometzr  calig  factor 

CALDIS2  IS  CALIBRATION  FACTOR  FOR  H-P  CHART 
S°ECA  IS  SPECIMEN  AREA 
READ  *»CALSIG,CALDISl,CALDIS2»S PEC A 

PRINT  10, CAlSIG, CALOISI, C AL DI S 2 ,  SPEC A 

FORMAT  (//  T2 , *  FROM  DATA1*/  T2,*H-P  CHART  LOAD  SCALE  CALIBRATION 
IIS  •,  F7.5, 

2  /•T2,*EXTEN50MENTER  CALIBRATION  FACTOR  IS  *,  F7.5, 

4  /  T2,  *H-P  CHART  DISPLACEMENT  SCALE  CALIBRATION  IS  *,F7.5, 

5  /  T2, ’SPECIMEN  AREA  =  *,F7.5  /) 

PRINT  29, UNITS 

FORMAT  <T2,*  JNITS  OESIG  IS  *,  A2/> 

CALDIS=CAlDIS1*CALDIS2 

KT=KA  | 

100  CONTINUE 
KA-KA+1 

IF  (KA.GT.70)  GO  TO  70 

READ  *,NC(i<A>  ,STRT  <KA)  ,STRP{KA)  ,SIGC(KA> 

USE  -1.  TO  TERMINATE  READING  DATA  STRING 
PRINT  *,NC(KA) ,STRT (<A) ,STRP(KA) ,SIGC(KA) 

IFCNC(KA).LT.O.B)  GO  TO  103 
NC(KA) =NC<KA) ♦FCTR 
GO  TO  100 

70  CONTINUE 
PRINT  71 

71  FORMAT  (4t/l  T  3 ,  ’EXCEEDED  ARRAY  DIMENSIONS  IN  0ATA1*,3(/»1 
103  CONTINUE 

PRINT  4 

4  FORMAT (//  T2, ‘CYCLES*,  T 10 , *T. OISP* ,  T18, *  PL . OISP* ,T 28 , 
1*STRESS*/I 

KA=KA-1 
KI=KA 
KS=KT  +  1 
C 

DO  1  J=KS , KI 

PRINT  5  ,NC  ( J)  ,  STRT  (  J)  ,STR=>(J>  ,SIGCU) 

5  FORMAT  <T2, F5, 0,T10,FB.2,T13,F5.2,T23,F5.2) 

1  CONTINUE 

CALL  DATA’  ( CAL SI G , CALO I S , S PEC A , UNI TS , KS) 

15  CONTINUE 

C 

PRINT  9 

PRINT  21, (TITL(JA) ,  JA  =  1 , 31 1 
21  FORMAT  (1H1.T28, ‘HYSTERESIS  LOOP*,/ 

AT  IF, ‘DAT  A  FOR  »,  31A1/ 

STie.AO  (1H‘>  ,  3 ( / ) 

CT1P, ‘TOTAL*,  T20 , ‘PLASTIC* ,T31, 

D*STR£SS‘,  TL2, ‘ELASTIC*,  T53, 

E*OLASTIC‘,  T6B, ‘STRAIN*  /  T2 
F, ‘CYCLES*,  Til,*  E  LONS ‘ ,  T21,  ‘ELONG*, 

GT31,  *RANGZ*,  T  l  ? ,  ‘STRAIN*,  T53, 

H*  ST  RAI N* ,  T63 ,  * RANGE*  ,  /  T10, 

I* (INCHES) *,  T  2  C  ,  *(INCHESl*,  T31, 

J*  ( KS  1 1  *  ,  T42,  *  (  PC  NT  )  * ,  T53  ,  *  ( PCNT )  *, 

KT o5 ,  * (PCNT) *  /) 

C 

00  28  MC=1,KI 
NTrNC(MC) 

PRINT  22,NT,DELTELC (MCI .OELTPLC  (MC) ,SIGC(MC) , 

ASTRT  (MCI  .  STRPt  M.'.  I  .STRNCI  MCI  .  . 


002720 
002730 
C  C 2740 
002750 
002760 
002770 
C  C  2760 
0C2790 
002300 
G  C  2310 
0  C  2820 
002830 
0C2340 
002350 
002860 
002370 
002330 
C  C  2890 
002900 
002910 
002920 
CC  2930 
0C2940 
002950 
002960 
0C  2970 
002980 
002990 
CC3000 
003010 
003020 
603030 
I'D  30 40 
C  C  3050 
003060 
E  0  3070 
003060 
003090 
003100 
003110 
C03120 
003130 
003140 
003150 
0  C  3160 
003170 
003160 
003190 
0C  3200 
CC3210 
003220 
0C  3230 
003240 
OC  3250 
003260 
003270 
0C3280 
003290 
1C  3300 
0C  3310 
0C  3320 
OC  3330 
OC  3340 
CC  3350 
C  0  3360 
003370 
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22  FORMAT (T2,I5,T11,F6.5,T21,F6.5,T30,F7.2,T42,F5.3 
AT53,F6.4,T65»F5.3) 

2ft  C  3NT  INUE 

PRINT  27 

27  FORMAT  (1H1) 

C 

RETURN 

50  CONTINUE 
PRINT  7 

7  FORMAT  (/  T2,*N0  HYSTERESIS  LOOP  DATA*  ,/) 

KI  =  0 

RETURN 

ENO 


SUBROUTINE  OAT  A 2 ( CALS I G , CAL  01 S , SPEC A , UNITS,  KS> 

COMMON  /C/  SI  60 ( 7C )  ,3TRT(7C)  ,STRP(70)  ,STRNC(70)  ,NC(70)  ,KI 

A,DELTELC(70) , OELTPLC ( 7Q )  1 

COMMON  /O/  LP,1.£ 

INTEGER  UNITS 
REAL  NC 

LE  IS  EFFELAST  GAGE  LGTH.LP  IS  PL  EFF  GAGE  LENGTH, 

real  le,lp 

SIG  (  C,CAL,A,F)=C/F*CAL*500./A 

E(C,CAL,F)=C/F»CAL 

STNE (UTOT  » UPL , EE )  =(UTOT-UPL)/EE 

STNP<UPL,EP)=UPL/EP 

PRINT  e,LE,LP,CALSIG,:ALOIS 

ft  FORMAT  (T  2 ,  *  LE,LP,CALSIG,CALOIS  ARE  =  *,  4F9.5,  //) 

PRINT  6 

b  FORMAT  n</),  T2 , “CYCLES* ,  T9,»ELAST  STN*,  T22,  *PL  STRN* , 

1  T35,  *  TO  T  STRN*, Yit>),*STP.  ESS*, Ts7,*T0T  OISPL*  ,T70,*PL  OISPL*  /) 
IF  (UNITS. E3, HI)  FACTOR- 1.00 
IF  (UNITS. EQ.1HM)  FAGT0R=2. 54 

DO  5  K=KS,KI 

SIGC ( K I =SIG(SIGC (K) , CAL  31 G , SPEC A , FACTOR) *  1. E-3 
UT=E (STRT (<) ,CAL0IS, FACTOR) 

UP-E(STRP (<) ,CAlOIS,F ACTOR) 

STN:L=STNE(UT,UP,LE)*1.E2 

STNPL-STNP(UP,LP) *1. E2 

STRNC(K)=STNEL»STNPL 

STORE  ELAS  i  PIAST  STRAIN 

STRT (K)rSTNEL 

S  TRP ( K) =S  TNPL 

OELTELC (K) =UT 

OELTPLC (<) =UP 

UT=UT*1.E3 

UP=UP»1.E3 

PRINT  7,NC(K> ,STRT ( K » ,STRP (K)  , STRNC ( K ) , SI GC I K> ,UT, UP 
7  FORMAT  (T2,F5.3,T9,F4. 3,T22,F4.3  ,T35,F5,3,  T 4 8 , F5 . 1 , T57 , 

1  F4.2,T70,F4.3) 

5  CONTINUE 
RETURN 
ENO 


SUBROUTINE  SUTPLOT(I) 

COMMON  /A/  N (1530 ) .DELTSIG (1503) ,X(15C0> ,Y(1500> , DELTEL (15CC ) , 
ADELYPL  ( 15  33)  ,  )ELTEE  (I*'03)  ,  OEL  T STN  ( 15  J C)  ,TITL  (60)  , 

DR  1(1500, 1ELTE?(  15  0  0) 

COMMON  /'/  SI.,"  f  70  ,  .STRT  (7,1 1  .ST»0(7n>  .STRNO  (70)  .NC(70>  ,KT 


003380 
CC  3390 
OC  3400 
003410 
OC  3420 
OC  3430 
CO  3440 
0C3450 
C C  3460 
OC  3470 
OC  3460 
CO  3490 
CO  3500 
OC  3510 
033520 
003530 
003540 
C  C  3550 
033560 
003570 
003560 
OC  3590 
003600 
003610 
OC3620 
003630 
0C3640 
033650 
CC  3660 
OC  3670 
OC  3680 
OC  3590 
Ol  3700 
C  0  3710 
CO  3720 
003730 
C  C  3740 
003750 
003760 
CC3770 
OC  3780 
C03790 
003800 
003S10 
OC  3820 
003830 
003340 
C  0  3850 
CC  3860 
003870 
0  C  3360 
C  33390 
003900 
C  C  3910 
0C3920 
003930 
003340 
CC3950 
CC  3960 
003970 
CC  3960 
OC  3990 
CC  4000 
004910 
004020 
0(14030 


1 
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A,nELTELC(70),3ELTPLC(70) 

REA L  N,U(53),NC 
REAL  X  A  (  7  } )  ,  Y  A  ( 7  0 ) 

OIMENSION  IPA<(oO) ,MPLOT(10> 

logical  hyplot, complot .oualpt 

c 

PRINT  10.I.KI 

10  FORMAT  (1H1//T2,»FR0M  SJQPLOT  i  NO.  OF  COMPUTER  DATA  PTS  IS  =  *» 
AI 3  /  T 17 , *  NO.  OF  HYSTERESIS  LOOP  OATA  PTS  IS  =  *,  15/) 

CALL  COMPRS 
C 

COMPLOT=.T. 

HYPL0T=.T. 

Dualpt=.f. 

IF  (I.LE. I)  COMPLOT=.F. 

IF  (KI.LE.O)  HYPL0T=.F. 

IF  (HYPLOT. AND. COMPLOT)  0UALPT=.T. 

c 

PRINT  6,  C OM PL OT.HY PLOT, OUALPT 
6  FORMAT  (  /  •  COMPLOT  =  *,  L3,  5X,  •, HYPLOT  =  *,  L3/, 

AT  3, *  OUALPT  =  »,L3  /) 

C 

IF  (.NOT. COMPLOT. AND.. NOT. HYPLOT)  RETURN 

C 

LN2=1 

IF  (OUALPT)  LN2=2 

OEFINE  MESSAG  LTR  HEIGHT  l  9LNK1  SIZE 
HTs=0. 1*. 

ASSUMES  15  PLOTTED  CHARACTERS 

XLNGTH=15.*HT*2.*HT 
YLNGTri=2. *HT 
XORGINsl.O 
YOPGIN  =  l.  0 

ESTABLISH  LENGTHS  FOR  9LANKING 
XF=XORGIN+XLNGTH 
YF=YORGI)*YLNGTH 

ESTABLISH  HESSAG  PRINT  POSITIONS 
XO=XORGIN*HT»2. 

Y  0= YORGIN  *HT/2. 


FOR  PLOTS  1-10  USE  Y 

READ  1,  (MPLOT(L) ,L=1,10) 

1  FORMAT (1 JA1) 

PRINT  9,  (MPLOT(L) ,L=1,10) 

FOPMAT  (T2,  *MPL0T  IS  «  * ,  1C(A1,1X)  /) 

ASSUMES  15  CHARACTERS  t  S 
ENCOOE  (16 ,2C ,U)  (TITL(KL) ,KL=1,15) 

20  FORMAT  (15A1,  "$") 

C 

C  VMIN2, YMAX2  -  STRESS  RANG"  FOR  PLOT  2 

C  VMIN3.YMAX3  -  STRAIN  RANG'.  FOR  PLOT  3 

C  YMIN4,YMAX4  -  STR-SS  RANG ~  FOR  PLOT  4 

C  YMIN5,YMAX5  -  STRESS  RANGr  FOR  PLOT  5 

C  XMAX1  -  DEFINED  MAX  NUMBER  OF  CYCLES  FOR  2ND  PLOT  GROUP 

•C 

READ  • , YMIN2,YINC2,YMAX2 
RrAf>  *,YMIN3,YINC3,YMAX3 
READ  *,YMIN*,YINC-,YMAX‘. 

READ  »,YMIN5,YINC6,YMAX5 

rfao  •.xsoRr.N.xcYCi c  . .  .  -  •  ■ 


004040 

004050 

004060 

004070 

004080 

0C  4090 

004100 

00H110 

004120 

004130 

004140 

004150 

0C4160 

004170 

004180 

004190 

004200 

OC4210 

014220 

OC  4230 

OC4240 

004250 

0(4260 

0C427O 

0  C  4260 

004290 

0C  4300 

004310 

004320 

004330 

0  C  4340 

OC  4350 

0(4360 

004370 

C  0  4380 

004390 

CC  4400 

004410 

004420 

0C4430 

004440 

004450 

004460 

004470 

0C4480 

004490 

004500 

004510 

004520 

004530 

004540 

00 4550 

0C4560 

004570 

0C4580 

004590 

0C4600 

004610 

0C4620 

004630 

004640 

004659 

0C4660 

0C4670 

004680 

004690 
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REAO  *  j  XINC1,  XM  AX2 

c 

PRINT  8,YMIN?,YINC2,YMAX2,  YMIN  3 ,  YINC3  ,  YM  AX3  ,  Y.MIN4  ,  YING4  ,  YM  AX4  , 
AYMIN5, YIT35, YMax5,X£ORGN,XCYCLE,XIUCl,XMAX2 
•  FORMAT  t/T3,*YMIN2,YINC2,YHAX2  =  *,3F10.2/ 
AT3,»YMIN3,YIn:3,YMAX3  =  *  ,  3F1 C  «  2/ 

PT3,*YMIN-.,YINC<.,YMAX4  =  *  ,  3F  10 . 2  / 

CT3,»YMIN5, YING5, YMAX3  =  *,3F10.2/ 

ET3,’X50RGN,XCYC:LE  =  •,2F13.2/ 

OT3,*XINCl,XMAX2  =  *,2F10.2/I 

c 

JTCST=0 

00  607  JRS  =  1 i 10 
IF  (MPL0T(JRS).£Q.1HY)  JTST=1 
JT£ST=JTEST*JTST 
607  CONTINUE 

IF  (JTEST.EQ.O)  GO  TO  1001 
CALL  SGNPL(-l) 

DO  1000  MINPEX  =  1 1  2  | 

IF  (MINQEX.EQ.l.ANJ.COMPLOT)  GO  TO  400 
IF  (MINOEX.E3.1.ANO..NOT.COMPLOT)  GO  TO  410 
IF  {MINOEX.£0.2.A;iO.CO“PLOT>  GO  TO  405 
IF  (MINOEX.EQ.2.  ANO..NOT.COMPLOT)  GO  TO  405 

400  CONTINUE 

C  FIND  XMAX 

XMAX=N(1> 

DO  30  M=2 i I 

IF  (NCMJ.GT.XMAXJ  XMAX=N(H> 

30  CONTINUE 
XMAX=XMAX/100. 

I XMAX*  XMAX 
XMAX=(IXMAX*1)»100. 

IF  (OUALPT)  GO  TO  402 
GO  TO  401 
402  CONTINUE 

DO  32  M=1,KI 

IF  (NC(M).GT.  XMAX)  XMAX=NC(H> 

32  CONTINUE 

XMAX=XMAX/100. 

I XM AX=  XMAX 
XMAX=<IXMAX*1>*100. 

GO  TO  401 

c 

41t  CONTINUE 
C  FIND  NC-MAX 
XMAX=NC(1) 

DO  31  M=2 , KI 

IF  (NC(M).GT.XMAX)  XMAX=NC(H> 

31  CONTINUE 
XMAX=XMAX/100. 

I XMAX- XM4  X 

XMAX=( IXMAX*1) »1C0. 

GO  TO  401 

c 

405  CONTINUE 
415  CONTINUE 

XMA  X  =  XMAX2 
GO  TO  401 

c 

401  CONTINUE 

PRINT  3,  MINPEX  t XMAX 

3  FORMAT  (T2,*MINJ£X=  *,  13,  <*X,»XMAX  =  *,F7,1  /) 

c 

IF  (MPLOT (MIN3EX»5-4) ,NE. 1HY)  GO  TO  502 
501  CONTINUE 


OC  4700 
CC4710 
CC4720 
C  04730 
004740 
OC4750 
C04760 
C 04770 
CC4700 
CC4790 
004300 
C04810 
0(4320 
0  C  4330 
004340 
004350 
C  C  4360 
004370 
004830 
004890 
004900 
004910 
OC  4920 
OC4930 
004940 
004950 
004960 
0(4970 
0(4980 
004390 
CC5000 
0C5010 
005020 
005030 
005040 
C05050 
005060 
005070 
0(5380 
005090 
005100 
005110 
005120 
CC5130 
005140 
005150 
005160 
005170 
005180 
C  05190 
OC  5200 
C05210 
005220 
0(5230 
0(5240 
0(5250 
005260 
C05270 
0(5280 
0(5290 
C05300 
0(5310 
0(5320 
0C5330 
005340 
005350 
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C  PLOT  S-MAX/S-MIN  V S  CYCLES  PLOT  #1  CC5360 

C»i«$2Si!;S$$SS5$nSSi?3S-$S*!S£$3$St»S!mm$$S  0G537Q 

c  005383 

If  (.NOT.  COMPLOT)  CO  TO  120  tG539C 

PRINT  7,1  CC5400 

7  FORMAT (///*  SUBPLOT  »//,T2,*  1=  *,I5/>  005410 

C  DO  10  J»1,I  •  CC5420 

C  PRINT  1,J,  N(J),  R1 l J)  005430 

Cl  FORMAT  (T2,  »J=  ’.Ip^X,*  N=  *,F7.1,3X,*  Rl  =  *,F5.3»  0C5440 

CIO  CONTINUE  CC5450 

C  005460 

XLtH=7.0  005470 

YLTH=p.0  005480 

XMIN=3.0  005490 

X INC  =  5  CO.  005500 

YINC  =• 1  CC5510 

V.MIN=.4  »  005520 

YMAX=1.3  005530 

C  ELIM  OUT  OF  RANGE  PTS  >  005540 

JT=C  ~  OC  5550 

DO  210  13*1,1  005560 

IF  (R1 (IJ) .LT. YMIN.OR. R1 (I J) .GT.YMAX)  GO  TO  211  CC5570 

IF  (N(IJ) .LT.XMIN.OR. N (I J) .GT.XMAX)  GO  TO  211  005580 

IT=1T+1  005590 

X  (IT  )  =  N  ( I  J)  005600 

Y (IT! =R1 ( I Jl  0C5610 

GO  TO  210  005620 

211  CONTINUE  005630 

210  CONTINUE  005540 

C  OC5650 

CALL  9ASALF(~STAN0AR0“)  005660 

CALL  MIXAuF  ("INSTRUCTION"*  005670 

CALL  HX3ALF  ("L/CGREEK”  , 1H*)  GC5680 

CALL  T IT  LE ( IH  ,-1,"Cy:lES3", 130, "RATIO  (H2. ) *ST  (LH. 5) MAX  (LXHX)  TO  0C5o90 
1(H2.  » * S»  (Lrt.5)MIN(LXHX)S",  130,  XLTH  , YLTH)  CC5700 

CALL  HEAJIN  ("RATIO  OF  ( H2 . ) *S )  (L H. 5 ) MAX (LXHX )  TO  (H2. ) * S ( LH. 5 ) MING 05710 
1 (LXHX) I",  100,3,2)  0C572C 

CALL  HEA3IN  ("VERSUS  CYCLESJ",  +100,  3,2)  0C5730 

CALL  9LNK1 ( XORGI N , XF , YORGI N , YF , +1 )  CC5740 

CALL  INTAXS  005750 

CALL  FRAME  -•  CC5760 

CALL  GRAF<XMIN,XINC,XMAX,YMIN,YINC,YMAX>  005770 

CALL  SCL’IC (t.5)  015780 

CALL  CURVE  (X,Y,IT,-1)  0C5790 

CALL  RESET ("SLNK1")  605800 

CALL  HEIGHT  (HT)  005810 

CALL  ME3SAG(U,lDO,XOfYO)  005820 

CALL  ENO°L (MlNDEX*5-4)  005830 

CALL  RESET  ("HEIGHT")  005840 

C  CC5S50 

C  005360. 

502  CONTINUE  0C5370 

IF  (HP LOT (HIN0EX*5-3) . NE. 1 H Y )  GO  TO  503  005880 

C  CC5990 

C  005900 

C  PLOT  STRESS  RANGE  V 3  CYCLES  PLOT  #2  '  005910 

CI$S$t$itSf 5l3$SS3SISJ$$$SSESiiS$SS3IJS$$S5$SSJ»J  005920 

C  005930 

C  00  11  J=1,I  005940 

C  PRINT  2,  J,  N(J> ,0ELTSIG( J)  005950 

C2  FORMAT (T2,*J=  *,I5,3X,»N=  • ,F7. 1 , 3X , *OELT SIG*  *,  F6.1)  005960 

Cll  CONTINUE  005970 

C  •  r-..  .  005980 


XLTH-7,3  005990 

YLTH“5> » p..„  006000 

VMTN^VHTN'  .  .  _  _ _ _ _  ...  006010 


nnnnon  o  oo 
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yinc=yinc2 

YHAX=YNAX2 
XMJN=0.0 
XINC=5  00. 

IF  (HINO'X.EQ. 1»  XIHC=XINC1 

c 

IF  (.NOT. COHPLOT)  60  TO  120  ,  T 

IT*0 

00  220  IJ*1,I 

IF  (DELTSIG(IJ).LT.YHN.OR.OELTSIGdJ>.GT.YHAX>  GO  TO  221 
IF  CNIIJ) .CT.XMIN.  OR.M(IJ) .GT.XKAX)  GO  TO  221 
IT=IT*1 
X(IT) =N(I J) 

Y (IT)=DELTSIG(IJ) 

GO  TO  220 
221  CONTINUE 
220  CONTINUE 

c 

120  CONTINUE  I 

IF  (.NOT.HYPLOT)  GO  TO  227 
JT=0 

OO  225  IJ=1,KI 

IF  (SIGC(IJ).LT.  YMIN.OR.SIGC(IJ).GT.YMAX)  GO  TO  226 
IF  (NC(IJ)  .LT.XMIN.OR.NCdJj.GT.XMAX)  GO  TO  226 
JT=JT*1 

X  A ( JT ) =NC (I J) 

YA(JT)=SIGC(IJ) 

GO  TO  225 

226  CONTINUE 
225  CONTINUE 

227  CONTINUE 


CALL  SCLPICC1.0) 

CALL  RESET  ("MXALFS") 

CALL  8ASALF(”’ST ANDARO"? 

CALL  TITLE (1H  ,-l,  "CYCLESS",  100,  “STRESS  RANGE  <KSI>$“» 

1  100.XLTH,  YLTH) 

CALL  HEAOIN  (“STRESS  RANGE  YS  CYCLES*",  -100,3,1) 

CALL  3LN<1(XORGIN,XF,YORGIN,YF,*1) 

CALL  3LN<2(  j.  95 ,  25 , 1.  95 , 2. 65  ,  *1) 

CALL  INTAXS 
CALL  FRAME 

CALL  GRAF  (XMIN,XINC,XMAX,YMIN,YINC,YHAX) 

CALL  SCL°IC ( 0.  5 ) 

IF  (COHPLOT)  call  CURYE  (X,Y,IT,-1) 

IF  (HYPLOT)  CALL  CURYE ( X A , Y A , JT , -1 > 

CALL  RESET (“BLNK1") 

CALL  RESET (“RLNK2") 

CALL  HEIGHT  <HT) 

CALL  ME3SAG(U, 100,XO,YO) 

CALL  SCL’IC(l.OO) 

IF  (COHPLOT)  CALL  LINtS(“COHPUTER  GENERATED  DATA I PAK , 1) 

IF  (HYPLOT)  CALL  LINES  (“HYSTERESIS  LOOP  DAT AS", IPAK ,LN2 > 

CALL  LEGENO(IP6<,LN2,1.0,2.0) 

CALL  ENO°L (HIN0EX*5-3) 

CALL  RESET  ("HEIGHT") 

503  CONTINUE 

IF  (MPLOT(HINOEX*5-2).NE.1HY)  GO  TO  504 


PLOT  STRAIN  PANS”  VS  CYCLES  PLOT  #3 

ts$mssisssssmsjm$$iisdiimsi  us*!*?**!** 

HO  12  j*i.t  .  .  . 


006020 
006330 
CC6040 
OC6350 
0C6060 
006070 
0C63B0 
006090 
006100 
006110 
0C6120 
006130 
006140 
0C6150 
006160 
006170 
006160 
006190 
006200 
006210 
006220 
006230 
0C6240 
006250 
0C6260 
006270 
C062B0 
036290 
006300 
CC6310 
006320 
006330 
006340 
CC6350 
CC6360 
006370 
006360 
006390 
C06400 
C  06410 
006420 
CC6430 
CO  6440 
006450 
006460 
006*70 
0(6480 
006490 
C06500 
CC6510 
006520 
CC6530 
DC  6540 
006550 
006563 
0C6570 
0C6560 
006590 
0C6600 
OCb&lO 
006620 
0C6630 
006640 
GG6S50 
0(6660 
006670 
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C  PRINT  3,  J,N(J) ,0£LTSTN(J) 

C3  F  ORMAT  (T2  * • J=  •,I5,3X,*N=  •  ,  F7 . 1, 3X  ,»OELTSTN»  *,F6.4> 

C12  CONTINUE 

c 

XLT  H*7 • 0 

YLTH=S.O 

YMlN=VHIN3 

YINC=YINC3 

VHAX=YHAX3 

XMIN=0« 0 

XINC=500. 

IF  (NINOEX.EQ.l)  XInC=XINC1 

C 

IF  (.NOT.COMPLOT)  GO  TO  130 
IT=0 

00  230  IJ=1,I 

IF  (D£LTSTN(IJ).LT,YMIN.ORtDELTSTN(IJ).GT»YMAX)  GO  TO  231 
IF  (N(IJ).LT.XMIN.0R.N(1J).GT.XMAX>  GO  TO  231 
iT*mi  i 

XCITIsNCIJ) 

Y  (IT  I  =  DELTSTNCIJ) 

GO  TO  230 
231  CONTINUE 
230  CONTINUE 
130  CONTINUE 
C 

IF  (.NOT.HYPLOT)  GO  TO  237 
JT*0 

DO  235  IJ=1,KI 

IF  (STRNG(IJ).LT.YMIN.0R.3TRNC(IJ).GT.YMAX>  GO  TO  236 
IF  «NC<I>)  .LT.XMIN.OR.NCUJJ.GT.XMAX)  GO  TO  236 
JT*JT*1 

X  A ( JT I =Nu . I  ' 

YA(JTI=STRNC<I.,) 

GO  TO  235 

236  CONTINUE 
235  CONTINUE 

237  CONTINUE 
C 

CALL  SCLPIC(l.O) 

CALL  TITLE  (IN  ,  -1,"CYCLES5~,  100,  "STRAIN  RANGE  (PERCENT) S", 

1  100.XLTM,  YLTH) 

CALL  MEAOIN  ("STRAIN  RANGE  VS  CYCLES?",  -100,  3,1) 

CALL  FRAME 

CALL  BLN<1 ( XORGIN, XF, Y0R3IN , YF , *1) 

CALL  8LNKl(C.95*4, 25,1.95, 2.55»y1) 

CALL  XINTAX 

CALL  GRAF  (XHIN,XINC,XMAX,YHIN,YINC,YMAX> 

CALL  SCL^rC(0.5) 

IF  (COMPLOT)  CALL  CURVE  (X,Y,IT,-i> 

IF  (NYPLOT)  CALL  CUR VE ( XA , Y A , JT,-1) 

CALL  RESET ("?LN<1") 

CALL  RESET  (“3LNK2") 

CALL  HEIGHT  (HT) 

CALL  HESSAG(U,130,XO,YO) 

CALL  SCLPIC (1.0) 

IF  (COMPLOT)  CALL  LIn:S("COH'»UTER  GENERATED  OATA?~,IPAK,  1) 

IF  (HYPLOT)  CALL  LINES  ("HYSTERESIS  LOOP  0ATAI",IRAK»LN2) 

CALL  LEliENO  COAX,  LN2, 1.0, 2. 5) 

CALL  ENOPL (HlM0EX*5-2) 

CALL  RESET  ("HEIGHT") 

C 

504  CONTINUE 

IF  (NPLOT(HINOEX»5-1).NE.1HY)  GO  TO  505 

c 

C  ..  PLOT  FXPI  OOFO  STRESS  RINftf  VS  CYCI  ES  PI  OT  ft 


OC66BO 
C 06690 
006700 
006710 
0C6720 
006730 
006740 
006750 
0C6760 
0C6770 
006700 
0C6790 
006000 
C06S10 
006020 
( C  6330 
CC6840 
006350 
006060 
006070 
006000 
006090 
016900 
006910 
006920 
006930 
006949 
0(6950 
006960 
0C6970 
0(6900 
006990 
007000 
007010 
t  C7320 
C07030 
007940 
007050 
007060 
OC  7070 
007000 
Cl  7090 
007100 
007110 
007123 
007130 
007140 
007150 
007163 
007170 
007100 
007190 
007200 
007210 
007220 
0(7230 
0(7240 
007250 
OC  7260 
007270 
0(7200 
0(7290 
CC7300 
007310 
007320 
•07330 
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C  007350 

XLTH=7.0  017360 

YLTH=5.0  C  07 370 

VMIN=YMIN4  007300 

YINC=YINC4  007390 

YMAX=YMAX4  .  007400 

XMIN=0.0  007410 

XINC=500.  007420 

IF  <NIN0EX<EQ< 1)  XINC=XINC1  007430 

C  007440 

IF  ’< <N0T.C OMPLOT)  60  TO  140  007450 

IT=0  007460 

00  240  IJ=1,I  0C7470 

IF  (OELTSIG(IJ).LT.YMIN.OR.OSLTSIG(IJ).6T.YMAX  )  60  TO  241  CC74BQ 

IF  (N(IJ)  .LT.XMIN.OR.N(IJ).GT.XMAX)  GO  TO  241  007490 

IT=IT+ 1  007500 

X (IT)=N(I J>  007510 

Y(IT)=OELTSIG(IJ)  I  C  07520 

60  TO  240  ~  007530 

241  CONTINUE  007540 

240  CONTINUE  007550 

14C  CONTINUE  CC7560 

C  007570 

IF  <<N0T<HYPL0TJ  60  TO  247  007580 

JT=0  007590 

DO  245  I J  =  1 , K I  0C 7600 

IF  <SIGC(IJ) <LT. YMIN.OR.SIGC<IJ).GT. YMAX)  GO  TO  246  0C7610 

IF  <NC<IJ) . LT . XH I N. OR.  NG(IJ).GT.XMAX)  60  TO  246  007620 

JT=JT*1  007630 

XA(jT).=NC(IJ)  007640 

VA(JTJ=SIGC(IJI  007650 

GO  TO  245  007660 

246  CONTINUE  0C7670 

245  CONTINUE  0C7680 

247  CONTINUE  007690 

C  007700 

CALL  SCLPIC  <1<  0 )  017710 

CALL  TITLEdH  ,-1,  "CYCLESS",  100,  "STRESS  RANGE  (KSI>$~,  0C7720 

1  1C0.XLTH,  YLTH)  0C7730 

CALL  HEAOIN  ("STRESS  RANGE  VS  CYCLES!",  >100,3,1)  0C7740 

CALL  FRAME  0<7750 

CALL  9LNK1 ( XORGIN , XF, .  30  ,.  60  ,*1>  007760 

CALL  9LN<2(C.6C,3.90,:.90,1.6,»1)  007770 

CALL  IHTAXS  007780 

CALL  GRAF  (XMIN, XINC, XMAX , YNIN, YINC, YMAX)  007790 

CALL  GRIT  (5,5)  0C7800 

CALL  SCL°IC ( C . 5 )  007810 

IF  (COMPLOT)  CALL  CURVE  (X,Y,IT,-1)  0C7820 

IF  (HYPL0T)  CALL  CUR VE ( X A , Y A , JT,-1 >  007830 

CALL  RESET ("9LNK1")  0C7840 

V  CALL  RESET  ("3LNK2")  C07850 

CALL  HEIGHT  (HT)  007860 

CALL  MESSAG(U,109,XO,<38)  007870 

CALL  SCL3IC ( 1. C )  0o7980 

IF  (COMPLJT)  CALL  LIMESCCOMPUTER  GENERATED  DAT A S“, IPAK, 1)  007890 

IF  (HYPLDTI  CALL  LINES  ("HYSTERESIS  LOOP  OAT  AS” , I PAK,LN2 >  007900 

«►  CALL  LEGENQ  (IPAK,ln2,.o5,<95)  0C7910 

CALL  ENDPL  (MIS0EX*5-1)  CC7920 

CALL  RESET  ("HEIGHT")  CO  7930 

0C7940 
0(7950 

505  CONTINUE  CC7960 

IF  <MPL0T(MINDEX»5).NE.1HY)  60  TO  99  017970 

C  007980 

.  C  PI  OT  STRESS  RANGE  VS  LOG  CYC1  FS  PLOT  *•>  ..  „  0C7990 


CSS!$S$$«SS$SS3iS«!$fS$SSSS3SSSSii${SSSSS$S$tSStS 

c 

YHIN=YMIN5 

YMAX=YMAX5 

YLTH=5. 

XLTH=7» 

YSTEP=YINC5 
XHIN-0 • 0 

IF  (  <YNIN5«-YLTH*YINC5>  .LT.  YMAX5)  YSTEP=(YMAX5-YMIN5> /YLTH 

C 

IF  (.NOT. COMPLOT)  GO  TO  150 
IT=0 

DO  250  IJ=1,I 

IF  (D£LTSIG<IJ>.LT.YMIN.0R.0ELTSI&UJ).GT.YMAX>  GO  TO  251 
IF  (N(IJ).LT.XMIN.Ok.  R(IJ».GT.XMAX)  GO  TO  251 
IT*IT*1 
X  (IT  )  -N(I  J) 

V  CIT)  =  OELTSIG(IJ) 

GO  TO  250  t 

231  CONTINUE 
250  CONTINUE 

IF  (IT.E4.0)  GO  TO  263 
150  CONTINUE 
C 

IF  I.NOT.HYPLOTI  GO  TO  257 
JT*0 

00  255  IJ=1,KI 

IF  (SIGC(IJ).LT.YHIN.IR. SIGC(IJ).GT.YMAX)  GO  TO  256 

IF  (NC(IJ>.LT.XMIN.CR.NC<IJ>.GT.XMAX>  GO  TO  256 

JT*JT»1 

XAIJTlsNClIJI 

YA(JT)=SIGC(IJ) 

GO  TO  255 

256  CONTINUE 
255  CONTINUE 

IF  IJT.EQ. 0)  GO  TO  260 

257  CONTINUE 
C 

PRINT  280  » YMIN,  YMAX  , YLTH  ,  XL TH,  YSTEP 
260  FORMAT  (T2  , »YMIN5, YMA X5 , YL TH, XLTH, YSTEP  =  *,5F7.1  ✓) 

C 

CALL  MIX4LF  (“l/CSTD") 

CALL  TITLE  (“STRESS  RANGE  VS  L(OG>  CYCLES!",  -100, 

1  ~CYCLESS“,  100,  “STRESS  RANGE  (OKSI<>)3“,  100, 

-  2  XLTH.YLTHI 

CALL  YINTAX 
CALL  FRAME 

CALL  9LN<1 ( XOR3IN, XF, Y ORGIN, YF ,  +  1> 
xinc5=xlth/xcy:le 

PRINT  281  .XSORGN, XI NC5, YMIN, YSTEP 
281  FORMAT  (T2,*X50RGN,XINC;,YMIN, YSTEP  *  *,4F7.i/J 

c 

CALL  XL0G<X50RGN,X INC?, YMIN, YSTEP) 

CALL  SCL3IC (0.5) 

IF  (COMPLOT)  CALL  CURVE  (X,Y,IT,-1>  . 

IF  CHYPLOTJ  CALL  CURVE (XA,YA, JT,-1> 

CALL  RESET (“PlN<1~) 

CALL  HEIGHT  CHT> 

CALL  HESS4G(U,103,XO,YOI 
CALL  SCLPIC(l.O) 

IF  (COMPLOT)  CALL  LIn:S<“00MPUTER  GENERATED  DAT A $” , IPAK, 1) 
IF  (MYPLOT)  CALL  LINES  (“HYSTERESIS  LOOP  OAT  A- “, I PAK.LN2) 
CALL  LEGE  40  < IPAK , LN2, 1. , 2, > 

CALL  ENDPL  (MINDEX*5) 

c 

„  GO  TO  OR  . . .  -  - - . - - 


006000 
000010 
016022 
0C8030 
GC6Q40 
000050 
CC  6060 
0C6070 
C00060 
006090 
006100 
008110 
000120 
008130 
006140 
006150 
003160 
006170 
0C6160 
008190 
006200 
006210 
GC  6220 
006230 
0C8240 
OC 6250 
CC6260 
006270 
CC8280 
006290 
OC  6300 
006310 
006320 
006330 
0C6340 
006350 
OC  6360 
OC  6370 
OC  6380 
008390 
CC  6400 
006410 
DC8420 
C  0  6430 
006440 
006450 
OC  6460 
008470 
006460 
GC6490 
0C6500 
C06510 
003520 
OC  6530 
008540 
006550 
008560 
0(6570 
008560 
006590 
008600 
0C8610 
006620 
CC  6630 
OC  6640 
006650 
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ibt  CONTINUE  008660 

PRINT  2b‘*  , IT , JT  otosro 

264.  FORMAT  <Tjf  3H»» •  ,  “JO  DATA  PTS  WITH  RANGE  OF  PLOT  6*/  0CB660 

AT»,»IT  *  •  15,  JX,  *  *  JT  *  *,  15/)  DC  6690 

C  0(8700 

99  CONTINUE  '  C067J0 

C  008720 

CtS5I!S;TI$iTSTS5;T$tiSilEiiITI:$S$$SJiS$JSt$$$$S$  C08730 

10C0  CONTINUE  CC 87<*0 

CALL  OONEPL  008750 

tOCl  CONTINUE  006760 

RETURN  006770 

ENO  008760 
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